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CHAPTER 1 


GENERAL INFORMATION 


1.1 INTRODUCTION 

This manual describes how to use the M68000 Family Resident FORTRAN Cotipiler. 
It also describes the language differences between the M68000 FORTRAN and the 
ANSI 77 subset standard (see Appendix E) . 


1.2 FUNCTION OF FORTRAN COMPILER 


NOTE 

Unless otherwise specified, the designations 
"M68000" and "MC68000" refer to the entire 
M68000 family of microprocessors. 


The FORTRAN Coitpiler translates source programs written in FORTRAN into MC68000 
machine language, using one of the VERSAdos systems listed in paragraph 1.4. 
The MC68000 machine language relocatable programs produced by the Compiler will 
be referred to as object programs throughout the rest of this document. 


FORTRAN 


FORTRAN 


MC68000 

MACHINE 

SOURCE 

PROGRAM 

— > 

C01PILER 

— > 

LANGUAGE 

PROGRAM 


FIGURE 1-1. Function of the FORTRAN Compiler 


1.3 FEATURES 

The features of the Compiler are as follows: 

. Language conformity to the ANSI FORTRAN 77 subset. 
. Capability of performing bit operations. 

. Capability of creating reentrant object programs. 


1-1 



1.4 OPERATING ENVIRONMENT FOR THE FORTRAN COMPILER 


The following hardware and software facilities are required as a minimum to 
invoke the FORTRAN Corrpiler: 

a. Hardware 

. One of the following MC68000-based systems: 

EXORmacs Development System 

VMC 68/2 Microcomputer System 

VME/10 Microcoitputer Systan 

VERSAmodule 01 or 02 Monoboard Microcomputer 

VMElnodule Monoboard Microcoirputer 

. 384K bytes of memory 

. A keyboard/CRT terminal 

. One of the following disk configurations: 

two floppy disk drives 
a LARK drive 
a Winchester drive 

Figure 1-2 illustrates the standard configuration for an EXORmacs, which 
includes the above hardware elements along with a serial printer. 

Figure 1-3 illustrates a VME/10 system. The standard VME/10 configuration 
allows the addition of a printer when an MVME410 dual parallel port module is 
used. 

b. Software 

. VERSAdos (Disk Operating System) 

VERSAdos is a disk op>erating system available for the hardware 
systems listed in paragraph 1.4. a. It coordinates control of the 
Coitpiler, the data, and the disk. 



01158/7361 

FIGURE 1-2. EXORmacs Development System Standard Configuration 
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6-83-1537 


FIGURE 1-3. VME/10 Microcotiputer System 
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1.4.1 Form of FORTRAN Coirpiler 

The FORTRAN Ccaipiler and its runtime libraries are provided on LARK cartridge, 
VERSAdos cartridge, or VERSAdos floppy diskette. Other software necessary for 
program development (such as VERSAdos, CRT Text Editor, and Linkage Editor) is 
available on other disks called system disks. The disks that contain the user's 
programs are called user's disks. 


1.4.2 Program Development 

To develop a program for the MC68000 using the FORTRAN Coitpiler, the following 
four steps are required: 

a. Preparation of the FORTRAN source program (see Chapter 2) . 

Prepare FORTRAN source programs on a user's disk using the CRT Text 
Editor. 

b. Coitpilation of the program using the FORTRAN Conpiler (see Chapter 3) . 

The FORTRAN program is ccmpiled using the FORTRAN Conpiler to produce the 
object program. 

c. Pr^aration of the load module (see Chapter 5) . 

The input object program that was created in item b. utilizes the Linkage 
Editor to prepare a load module ccanbining any object programs required. 

d. Execution of the load module (see Chapter 6) . 

Execute the load module created in item c. 

Figure 1-4 illustrates the process of program development. 


1.5 NOTATION 

Ccxtimands and other input/output (I/O) are presented in this manual in a modified 
Backus-Naur Form (BNF) . Certain symbols in the syntax may be used, where noted, 
in the real I/O. Others are meta-symbols, which are used for definition only 
and are not entered by the user. These meta-symbols and their meanings are as 
follows: 

< > Angular brackets enclose a symbol, known as a syntactic variable, 

that is replaced in a command line by one of a class of symbols it 

represents . 

I This symbol indicates that a choice is to be made. One of several 

symbols, separated by this symbol, should be selected. 

[ ] Square brackets enclose a symbol that is optional. The enclosed 

symbol may occur zero or one time. 

[ ] . . . Square brackets followed by periods enclose a symbol that is 

optional/repetitive. The symbol may appear zero or more times. 

In the exaitples given in the following chapters, operator entries are to be 
followed by a carriage return unless otherwise specified. The carriage return 
is not shown in exairples except where it is the only entry, in which case it is 
shown as ( CR ) . 
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1.6 RELATED DOCUMENTS 


Refer to the following documents for more information on the environments in 
which the M68000 Family FORTRAN Conpiler is used. 

M68000 Family VERSAdos System Facilities Reference Manual, M68KVSF 

System Generation Facility User's Manual, M68KSYSGEN 

VERSAdos Data Management Services and Program Loader User's Manual, RMS68KIO 
M68000 Family Real-Time Multitasking Software User's Manual, M68KRMS68K 
VERSAdos Overview, M68KVOVER 
VERSAdos Reference Card, MVDOSCARD 

M68000 Family Resident Structured Assembler Reference Manual, M68KMASM 
M68000 Family Linkage Editor User's Manual, M68KLINK 
M68000 CRT Text Editor User's Manual, M68KEDIT 
VME/10 Text Editor User's Manual, M68KVSEDT 

MVME110/-1 VMEmodule Monoboard Microcomputer User's Manual, MVMEllO 

VERSAdos to VME Hardware and Software Configuration User's Manual, MVMEVDOS 

Monoboard Microcoitputer User's Guide, M68KVM01 

VERSAmodule Monoboard Microcoitputer User's Guide, M68KVM02 

VME/10 Microcoitputer System Overview Manual, M68KVSOM 

VMC 68/2-Series Microcomputer System Manual, MVMCSM 

EXORmacs Development System Operations Manual, M68KMACS 
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CHAPTER 2 


PREPARATION OF FORTRAN SOURCE PROGRAMS 


2.1 INTRODUCTION 

FORTRAN source programs are prepared using the CRT Text Editor. This chapter 
describes the preparation of a simple program. Refer to the M68000 CRT Text 
Editor User's Manual or the VME/10 Text Editor User's Manual for further details 
concerning the CRT Text Editor. 


2.1.1 Description of a Sample Program 

The sample program used to describe the creation of a FORTRAN program takes five 
numerical values that are the input/ searches for the greatest and smallest 
values, and then prints those. 


2.1.2 Preparing a Source Program 

a. The CRT Text Editor program resides on the system disk; the FORTRAN 
source program resides on the user's disk. 

b. Enter the CRT Text Editor ccximand (E) from the console - (in this 
example, VOLl is the user disk volume name, and TEST is the source 
program file name) . Use the Editor's option F for predefined tab sets. 

c. Enter the source program starting at the beginning of each line, and 
perform a CR (carriage return) at the end of each line. 

d. After keying in the source program, press the Fl key. The cursor will 
move to the prompt (>) in the lower portion of the screen. Enter QUIT to 
end the source program entry. 

This process is illustrated in Figure 2-1. 
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PROGRAM TEST 
INTEGER ARRAY (10) 

INTEGER MAX, MIN 
C INPUT VALUE SET 
DO 100 1=1,5 

READ(5,200) ARRAY(I) 

200 FORMAT (14) 

100 CONTINUE 
C GET MAX, MIN 

MAX = ARRAY (1) 

MIN = ARRAY (1) 

DO 300 I = 2,5 

IF (MAX .LT. ARRAY(I)) MAX = ARRAY(I) 
IF (MIN .GT. ARRAY(I)) MIN = ARRAY(I) 
300 CONTINUE 
C PRINT MAX, MIN 

WRITE (6,400) MAX, MIN 
400 FORMAT(2I4) 

STOP 

END 


Following program entry: 
Type (FI) key 
>QUIT(CR) 


NOTES; 

1. = means awaiting command. 

2. > means awaiting program entry. 

3. Each line is terminated with a carriage return (CR) . 


FIGURE 2-1. Preparation of a Source Program 
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CHAPTER 3 


USING THE FORTRAN COMPILER 


3.1 INVOKING THE FORTRAN COMPILER 

The cotnmard line format for the FORTRAN Compiler is: 

FORTRAN <source f ile> [ , [<object file>] [,<listing f ile>] ] [;<option>] 

Only the <source file> is required. The default extension on the <source file> 
is SA. If the <object file> and/or <listing file> are not specified, they will 
default to the same file name as the <source file>, but with extensions of RO 
and LS, respectively. 

Ccxnnand line options are specified by placing the appropriate option letter (s), 
s^arated by commas, in the option field of the command line. To disable an 
option, a hyphen (-) must precede the option letter. Table 3-1 lists available 
Ccxnpiler options. 

The following example will compile the source program created in Chapter 2, 
Figure 2-1. 

FORTRAN VOLl : . .TEST, , #PR 


3.1.1 File Name Format 

The general format of the file names that can be used by the FORTRAN command is 
as follows: 


[ [<volume name>] : [<user #>] . [<catalog name>] .] <file name> [ .<extension name>] 


where: 

volume name is a string vihich identifies the disk volume. It can be up 

to four characters in length, and the first character must 
be alphabetic (a-z) . The volume name specified during 
logon is used as the default. 

user # is up to four digits in length. If this parameter is 

omitted, the user number specified during logon is used as 
the default. 


catalog name is a string of up to eight characters, and the first 

character must be alphabetic (a-z) . The catalog name 
specified during logon is used as a default catalog name. 

file name is a string of up to eight characters, and the first 

character must be alphabetic (a-z) . 


extension name is one or two characters or numbers vhich may be used to 
distinguish file names. When using an extension name, 
refer to paragraph 3.1.2. 
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Following are exartples of the file name format. Refer to the VERSAdos System 
Facilities Reference Manual for further details concerning file names. 


EXAMPLE 1: SYSlil.CATLOG.FILEEX.KE 




Volume Name 

SYSl 



User # 

1 



Catalog Name 

CATLOG 



File Name 

FILEEX 



Extension Name 

KE 

EXAMPLE 

2} 

SYS5: . .FILEEX2.NS 




Volume Name 

SYS5 



User # 

(default) 



Catalog Name 

(default) 



File Name 

FILEEX2 



Extension Name 

NS 

EXAMPLE 

_3: 

FILEEX2.L0 




Volume Name 

(default) 



User # 

(default) 



Catalog Name 

(default) 



File Name 

FILEEX2 



Extension Name 

LO 

EXAMPLE 

_4: 

FILEEX2 (source file) 



Volume Name 

(default) 



User # 

(default 



Catalog Name 

(default) 



File Name 

FILEEX2 



Extension Name 

SA (default) 

EXAMPLE 

_5: 

FILEEX2 (object file) 



Volume Name 

(default) 



User # 

(default) 



Catalog Name 

(default) 



File Name 

FILEEX2 



Extension Name 

RO (default) 
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TABLE 3-1. Compiler Options 


OPTION 

ABBREV. 

DEFAULT 

DESCRIPTIOJ 

LIST 

L 

L 

Prints the source listing. 

-LIST 

-L 


Inhibits printing of source listing. 

ASMCODE 

A 

-A 

Prints the object-pseudo assembly listing. 

-ASC:ODE 

-A 


Inhibits printing of object-pseudo assembly 
listing. 

SYMBOL 

S 


Prints the symbol table. 

-SYMBOL 

-S 


Inhibits printing of symbol table. 

ERROR = 0 

E=n 

n=0 

Prints all error messages. 

ERROR = 1 



Prints all error messages except warnings. 

ERROR = 2 



Prints only fatal error messages. A fatal 
error occurs when a table (e.g., symbol 
table) overflows. 

PAGE 

P 

P 

Prints page header. 

-PAGE 

-P 


Inhibits printing of page header. 

VERTICAL=n 

5<=n<=999 

V=n 

n=60 

When using PAGE, this option defines the 
number of lines (n) per page. 

HORIZONTAL=n 

40<=n<=132 

H=n 

n=132 

Specifies number of characters per line. 

TITLE = line 

T=line 

- 

Specifies title for page header. 

OBJECT 

0 

0 

Outputs the object program. 

-OBJECT 

-0 


Inhibits output of the object program. 

BIG 

B 

-B 

When the BIG option is specified, the code 
portion of the program unit is assumed to 
be larger than 32K bytes long, and forward 
branch instructions are generated 
accordingly. 


-B 


In the default -B mode, the code portion of 
the program unit is assumed to be less than 
32K bytes long, and more efficient branch 
instructions are generated accordingly. 
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TABLE 3-1. Catpiler Options (cont'd) 


OPTION 

ABBREV. 

DEFAULT 

DESCRIPTION 

MINI 

M 

-M 

When the MINI option is specified, the code 
portion of the entire program (including the 
current program unit and all other programs 
units coaiprising the program) is assumed to 
occupy less than 32K bytes of memory. In this 
case, all subroutine and function references 
are handled more efficiently. 


-M 


In the default -M mode, the code portion of 
the entire program is assumed to be larger 
than 32K bytes, and less efficient subroutine 
and function reference are generated 
accordingly. 

SMALL COMMON 

C 

-C 

When the SMALL COMMON option is specified, the 
common and SAVEd items for the entire program 
are assumed to occupy a total of less than 32K 
bytes. In this case, more efficient data will 
be generated in the object code. 


-C 


In the default -C mode, the common and SAVEd 
items are assumed to occupy a total of more 
than 32K bytes, and less efficient data 
references are generated accordingly. 

STORAGE 

z=n[:s] 

n=27 

s=8 

Specifies the amount of storage to be made 
available to the Conpiler for its tables. 


storage areas, and stack, "n" specifies in K 
bytes the amount of space allocated for the 
Coirpiler's internal tables (default size is 
27K) . "s” specifies in K bytes the amount of 
space allocated for the Cortpiler stack 
(default size is 8K) . Total Conpiler size is 
170K, for code, plus the sum of "n" and "s". 
Therefore, the default size is 205K. If 
"z=40:20" were specified, the size of the 
Carpi ler would be 230K (170K + 40K + 20K) . 

If the stack size specified is not large 
enough, the Conpiler aborts with a bus error. 
The user must increase the space allocated for 
the stack by assigning a larger value for "s". 
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TABLE 3-1. Compiler Options (cont'd) 


OPTION ABBREV. DEFAULT DESCRIPTION 


If the space allocated for the internal tables 
is too small, the Cottpiler aborts with an 
internal error message describing the problem. 
The user must increase the table size 
specified by assigning a larger value for "n". 
If too much space was specified, a smaller "n" 
value is recommended. 


NOTES: 1. Options are separated on the command line by conmas — e.g., 

=PORTRAN FIX:77..ARRAY;A,S,H=80,T=SAMPLE HEADING 

2. Use of the -LIST option also inhibits printing of the object- 
pseudo assembly listing — i.e., -L, A is treated as -L,-A. 
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3.1.2 Exaitples of Invoking the FORTRAN Ccatpiler 

EXAMPLE 1 ; Source file name, object file name, and listing file name are all 
the same, using only the extension names SA, RO, and LS. 


SOURCE > FORTRAN > 

FILE 

SYS1:0.. TEXT.SA 

i > 


OBJECT 

FILE 

SYS1:0. .TEST.RO 

LISTING 

FILE 

SYS1:0..TEST.LS 


Enter the command: 

FORTRAN SYS1:0..TEST 


After execution of this coitmand, the following files are created: 

Relocatable object file name SYS1:0. .TEST.RO 

Listing file name SYS1:0. .TEST.LS 


The above command would have the same result as the following command: 
FORTRAN SYS1:0. .TEST.SA,SYS1:0. .TEST.RO,SYS1:0. .TEST.LS 


EXAMPLE 2: The listing is routed to the line printer. 


SOURCE > FORTRAN > 

FILE 

VOL1:O..SF1.SA 

+ > 


OBJECT 

FILE 

VOL1:O..SF1.RO 

LISTING 

FILE 

Line Printer 


Enter the command: 

FORTRAN VOLl : 0 . . SFl , , #PR 
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EXAMPLE 3: Ihe listing is routed to the user's console. 


SOURCE > FORTRAN > 

FILE 

VOL2:0. .SFl.SA 

+ > 


OBJECT 

FILE 

VOL2:O..SF1.RO 

LISTING 

FILE 

Console System 


Enter the ccranand: 

FORTRAN VOL2:0. .SFl.SA, VOL2:l..(BJ,# 

The # is used to specify that the listing should be directed to the user's 
console . 


EXAMPLE 4; No listing is generated. 


SOURCE > FORTRAN 

FILE 

VOL3:100..NOLST.SA 


•> OBJECT 
FILE 

VOL4:O..OBJ.RO 


Enter the command: 

FORTRAN VOL3:100. .NOLST,VOL4:0. .CBJ.I»,#NULL 


When the #NULL is specified as the listing destination, no listing is provided. 


NOTE 


Each compilation can compile only one FORTRAN program unit 
(i.e., main routine, subroutine, or function). The linkage 
editor is responsible for combining the relocatable object 
modules for an entire program. 
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3.2 FILES FOR THE FORTRAN CX)MPILER 

The FORTRAN Compiler uses the following files: 

. Source file 
. Object file 
. List file 

The FORTRAN cormand line specifies the source file, the object file, and the 
list file. 


File 

Name 

Use 

Volume 

Name 

User 

Number 

User 

Defined 

FORTRAN Source 
File 

User 

Defined 

User 

Defined 

User 

Defined 

FORTRAN Object 
File 

User 

Defined 

User 

Defined 

User 

Defined 

FORTRAN Listing 
File 

User 

Defined 

User 

Defined 
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CHAPTER 4 


OUTPUT LISTINGS 


4.1 FORTRAN COMPILER OUTPUT LISTINGS 

The following listings are output to the listing file, depending upon which 
Compiler options are specified. 

. Source listing 

. Object-pseudo assen±)ly language listing 
. Symbol table listing 
. Label table listing 
. Statistical information listing 
. Diagnostics listing 

The header information shown at the top of each page appears below: 

68000 FORTRAN <version #> <title> PAGE <nn> 


version # Version number 

title String specified by the TITLE option 

nn Page number 

(if <title> is not specified, it is left blank) 


4.2 SOURCE LISTING AND (BJECT-PSEUDO ASSEMBLY LISTING 

This section describes the source and object-pseudo assembly listings produced 
under the control of compile time options. 


4.2.1 Source Listing 

The source listing lists the original source program, the source line numbers, 
and the internal statement numbers (ISN) . Figure 4-1 illustrates the source 
listing with the L Compiler option. 
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© © © 


LINE ISN SOURCE STATEMENT 


1 

o 

1 

C 

C This 

F'ROGRAM MUL2X2 

aL 

3 


. prosSram multiplies two 2x2 matrices <MA,MEi). 

-4 


C The 

result matrix is MC. To run the prosfram erase 

5 

6 


C the 
C 

C"s before READ/WRITE/FORMAT statements. 

7 

2 


INTEGER*2 MA<2, 2>, MB<2, 2), MC(2, 2), I, J, K, L, N 

3 


C 

RE AD <6, 2) MA 

9 


C 

FiEAD<6,2) MB 

10 

3 


DO 100 I==-l,2 

11 

4 


DO 200 J=l,2 

12 

5 


MC(I, J)=0 

13 

6 


DO 30 0 K=l,2 

14 

7 

30 0 

MC<I, J)=:MC<I, J)+MA(I, K)*MB(K, J> 

15 

8 

200 

CONTINUE 

16 

9 

100 

CONTINUE 

17 


C 

WRITE < 6 . 3 ) < < MC < L , N ) , N== 1 > 2 > , L== 1,2) 

18 

10 


STOP 

19 


C 2 

FORMAT (413) 

20 


C 3 

F-ORMAT<//, IX, HHE RESULT MATRIX' ,//, 2<3X, 216, /) ) 

21 

22 

11 


END 


NOTES 


(1) Line number. 

(2) Internal statanent number. 

(3) Source program. 


FIGURE 4-1. Source Code Listing (L Option) 


4.2.2 Object-Pseudo Assembly Listing 

When the L and A Ccxnpiler options are selected, the Coitpiler prints the 
object-pseudo assembly listing corresponding to each group of source statanents. 
Figure 4-2 illustrates an exaitple of this. 
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isn souFiCE statement 

1 ;l F'ROGF<AM MUL2X2 

2 C 


3 

c 

This pro«h'3iTi mulbiF-lies 

two 2x2 matrices (MA^MB). 


c 

The result 

matrix is MG. 

To run the proiSram erase 

5 

c 

the C's before READ/WRITE/FORMAT statements. 

6 

c 





7 

2 

INTEGE;F?)k2 MA<2, 2) 

, MB (2, 2), MG <2, 

2), X, J. F<. L, N 

B 

C 

f?e:;ad(a,2) ma 



9 

C 

RE;;AD(<f), 2) MB 



:i.o 

3 

[)G 100 I==;b2 





000000 

2F0E 

MODE. 1... 

A6, --(A7) 



000002 

2C-4F 

MODE. 1.. 

A7, A6 



OOOOO'I 

9FFC00000000 

SUB. L 

iiOK)K>K, A7 



OOOOOA 


-4BE77F00 

MODE 

Dl/D2/D3/D'i/D5/D6/D7, 

-<A7) 





OOOOOE 

3D7C0001FFE6 

MODE. W 

1, -••26(A6) 



OOOOl'F 

3D7G0001FFE^ 

MODE. W 

1, ••••2B(A6> 



OOOOIA 

-'FA6EFFE-4 

TST. W 

•-28 (A6) 



00 00 IE 

6D000000 

l"!LT 

)K)K>K 

:i.l 


DO 2 

0 0 J~l,2 





000022 

3E)7C0001FFE2 

MODE. W 

1, -30 (A6) 



00002B 

3D7C0001FFE0 

MODE. W 

1, -32(A6) 



00002E 

-4A6EFFE0 

TST. W 

••••32<A6) 



000032 

6DOOOOOO 

BLT 

)K)K>K 

12. 

5 

MC<I 

r 

II 

O 



:i.3 

6 

i:>0 30 0 F<«=1,2 





000036 

322EFFE2 

MODE. W 

-30 < A6 ) , D1 



00003A 

C3FC0002 

MULS 

2, D1 



00003E 

D26EFFE6 

ADD. W 

••••26(A6). D1 



00 0 0-42 

E3-41 

ASl... W 

1, D1 



0000-4-4 

-42761 0E2 

GL.R. W 

-30<A6, Dl. W> 



OOOO-'FB 

3D7C0001FFDE 

MODE. W 

1, -•3^(A6) 



0000-4E 

3[)7C0001FF"DC 

MODE. W 

1, -36<A6) 



00 0 05-4 

-4A6EFFDC 

TST. W 

-36 (A6) 



000058 

6DOOOOOO 

BLT 

)K)K}K 

:l.^ 

7 30 0 Mccr. 

, J ) =MC < I, J ) +MA ( X, K ) )«MB ( K, J ) 




00005C 

3E2EFFDE 

MODE. W 

-3^(A6), D7 



000060 

3207 

MODE. W 

D7, Dl 



000062 

C3FX0002 

MUI..S 

2i Dl 



000066 

3C2EFFE6 

MODE. W 

~26<A6)> E>6 


FIGURE 4-2. Exanple of Output with Options L and A Specified (Sheet 1 of 2) 
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PAGE 2 





000 06A 

D246 

ADD. W 

D6, D1 




00006C 

E341 

ASL. W 

1, D1 




000 06E 

32361 0F2 

MODE. W 

-~14<A6, Dl. W), D1 




000072 

3A2EFFE2 

MOVE. W 

-•30<A6), D5 




000076 

3405 

MOVE. W 

D5, D2 




000078 

C5FC0002 

MULS 

2 . D2 




000 07C 

D447 

ADD. W 

D7, D2 




00007E 

E342 

ASL. W 

1, D2 




000080 

C3F620EA 

MULS 

"22 (A6, D2. W), Dl 




0 00 08'i 

3405 

MOVE. W 

D5, D2 




000086 

C5FC0002 

MULS 

2, D2. 




00008A 

D446 

ADD. W 

D6, D2 




00008C 

E342 

ASL. W 

1, D2 




000 08E 

D37620E2 

ADD. W 

Dl, ”30 (A6, D2. W) 




000092 

536EFFDC 

SU8Q. W 

1 , ••••36 ( A6 > 




000096 

526EFFDE 

ADDCL W 

1, -••34(A6> 




00 009 A 

6088 

BRA 

*-70 

15 

a 

200 

CONTINUE 






00009C 

536EFFE0 

SU8Q. W 

1, "32 (A6) 




000 OAO 

526EFFE2 

ADDCL W 

1, ••••30 (A6) 




OOOOA-4 

6088 

BRA 

*■••118 

16 

9 

100 

CONTINUE 






0000A6 

536EFFE4 

SUBO. W 

1, -28<A6) 




OOOOAA 

526EFFE6 

ADDQ. W 

1, ■26 (A6) 




OOOOAE 

6000FF6A 

BRA 

*■••148 

17 


C 

WRITE <6, 3) (<MC(L, 

N),N==1,2),L==1 

, 2) 

18 

10 


STOP 




19 


C 

2 FIDRMAT('4I3) 



20 


C 

3 FORMAT (//, IX, 'THE 

RESULT MATRIX 

', //, 2(3X, 2.16, / ) ) 

21 

11 


END 







0000B2 

42A7 

CLR. L 

"(A7) 




000084 

4EAB0000 

JSR 

ESDI 7". FRTPREF(A3) 




000088 

588F 

ADDO. L 

4, A7 




00008A 


4CDF00FE 

MOVEM. L 


< A7 ) + , D 1 /D2/D3/0'1/D5/D6/D7 

OOOO0E UNLK A6 

OOOOCO ^E75 RTS 


FIGURE 4-2. Exanple of Output with Options L and A Specified (Sheet 2 of 2) 
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4.3 SYMBOL TABLE LISTING 


The symbol table is a list of the symbolic names that exist in the source 
program. Figure 4-3 shows an example of the symbol table listing. 






SYMBOL TABLE 



© 

© 

© 

© 

© 

NAME 

ATTR 

ADDR 

SIZE 

TYPE 

COMMON 

Cl 

UNDEFINED 

icieic-kicieirk 


Cl 


LI 

SAVE.V 

16 


LI 



NOTES 


(1) Symbol names as they exist in the source program. 

(2) Type of attribute (further details in Table 4-1, ATTR column) . 

(3) Address assigned to the symbol; if the space is blank, it is not 
applicable. 

(4) Number of elenents. 

(5) Refer to Table 4-1 for this column. 

(6) Name of common block to which symbol belongs. 


FIGURE 4-3. Symbol Table Listing (Option S) 
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TABLE 4-1. Symbol Table Contents 


COLUMN 

INDICATION 

MEANING 

ATTR 

UNDEFINED, x 

Attributes not determined 

(attribute) 

LOCAL. X 

Local variable 


COMMON. X 

Common 


PROG 

Program 


SUB 

Subroutine 


AFDS 

Function name 


INTFUNC 

Intrinsic functions 


EXT 

Externally declared subroutine 


FUNC 

Function declared externally 


BLOCD 

Block data name 


SAVE. X 

SAVEd variable 


PARAMETER. X 

Parameter variable 

X indicates 

the following; 



B 

Coninon Block name 


V 

Variable 


A 

Array 

SIZE 


NUMBER OF ELEMENTS 

TYPE 

12 

2-byte Integer 


14 

4-byte Integer 


R4 

4-byte Real 


R8 

8-byte Real 


L4 

4-byte Logical 


Cn 

n-byte Character String 
n = 1 to 255 
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4.4 LABEL TABLE LISTING 


Figure 4-4 provides an example of the label table listing. 


© © © 

LABEL ATTR ADDR 

10 EXEC 003E 

20 FRMT 


NOTES 


(1) The label. 

(2) The type of statement specifying the label: 

FRMT: Format label 

EXEC: Execution statement label 

(3) The relative address, from the beginning of the object module, 
for the executable statement labels. 


FIGURE 4-4. Exaitple of the Label Table Listing 
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4.5 MODULE INFORMATION LISTING 


This listing displays the detected error numbers, the memory capacity that the 
object program requires, and the number of errors detected by the Compiler. 
Figure 4-5 is an exairple of one such listing. 


© 

CODE SIZE 293e, 
@ CURRENT Z=70 


© © © 

SAVE SIZE 4, STACK SIZE 28, CONSTANT SIZE 220 

Z=28 IS SUFFICIENT 


A LARGER VALUE IS RECCMMENDED 
***** total errors 0 TOTAL WARNINGS 2 

© © 


NOTES 

(1) The size of the object program (R01) . 

(2) The number of bytes required for local static storage (SAVH3 and 
initialized variables) . 

(3) The number of bytes required for local dynamic storage. 

(4) The number of bytes required for format and other string constants. 

(5) The value of Z used for this compilation — i.e., Z=70:n. 

(6) Either: 

(a) The recommended size for Z. 

(b) A larger value for Z is recommended; choose a large value for 
the next recompilation and then reduce it to the recommended 
value for future recompilations. 

(7) The number of Level 1 or 2 diagnostic messages the Compiler detected. 
(Refer to Table 4-2 for the diagnostic message error level.) 

(8) The number of Level 0 diagnostic messages the Compiler detected. 
(Refer to Table 4-2 for the diagnostic message error level.) 


FIGURE 4-5. Module Information Listing 
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4.6 DIAGNOSTIC MESSAGES 


The Compiler outputs a diagnostic message when an error is detected in the 
source program. It outputs the diagnostic message as a possible form of warning 
to which it assigns an error level to distinguish severity. Table 4-2 displays 
the various levels of error messages and their implications. 


TABLE 4-2. Diagnostic Message Error Levels 


LEVEL CATEGORY MEANING 


0 or W Warning It is possible that there is an error, but the program 

is acceptable. 


1 or E Normal Syntax or other error. The program is unacceptable 

Warning and no object code will be generated, but the remainder 
of the program will be checked. 


2 or F Fatal The error detected cannot be resolved by the Compiler, 

Error and the Compiler will abort without checking the 

remainder of the program. 


The diagnostic message is printed right after the error is detected in the 
source listing. 

Refer to 2^pendix A for further details concerning the diagnostic messages. 
Figure 4-6 provides an example of diagnostic messages. 




SOURCE STATEMENT 


3 . 

2 

3 

E-99 

5 

6 

E-226 

7 

8 
9 

W-197 

10 


1 FUNCTION FLJN<X, Y) 

2 INTEGER A<3),L 

3 EQUIOALENCE < A < 2 ) , L ) 

^ 10 DATA A, L /1,2, 3, 7/ 

A VARIABLE WAS F'REVIOUSLY INITIALIZED IN A DATA STATEMENT 
•5 F » X**2 Y*)K2 

6 IF <X. LT. 0) GOTO 10 

ref"i=;rf:nce to iu..egal statement label. 

7 F == Ad) L 

8 100 RETURN 

9 END 

FUNCTION VALUE NOT DEFINED IN THE FUNCTION SUBPROGRAM 


TOTAL ERRORS 2 TOTAL WARNINGS 1 


FIGURE 4-6. Diagnostic Message Example 
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CHAPTER 5 


CREATION OF AN EXECUTABLE LOAD MODULE 


5.1 INTRODUCTION 

Relocatable object modules, generated by the FORTRAN Coitpiler, are processed by 
the M68000 Family Linkage Editor (referred to as the "linker") to produce an 
absolute load module. A FORTRAN program requires the linker because: 

a. every FORTRAN program refers to runtime routines which reside in the 
System Library, 

b. if a program consists of one or more subprograms which were compiled 
separately, the linkage between modules must be constructed, and 

c. if a FORTRAN program calls a procedure or function written in assanbly 
language, the load module must include object modules produced by the 
M68000 Assotibler. 

In all these cases, the linker is required to assign memory space to each 
required object module, enable intermodule communication, and create a load 
module that is ready to run. 

FORTRAN programs are linked by the program LINK. LINK expects to find the 
FORTRAN runtime library FORTLIB.RO on the system volume under user number 0. By 
default, FORTRAN programs are linked to execute on a systan hosting a Memory 
Management Unit (MMU) . If the target system does not have an MMU (e.g., the VMC 
68/2 or MVMEllO) , then file FINITVM2.RO must be linked before the library is 
linked. An exaitple of this activity may be seen in paragraph 5.4. 


5.2 INVOKING THE LINKAGE EDITOR 

Enter the following ccmmand from the systan console to invoke the Linkage 
Editor: 

LINK <fl> [/<fl>] . . . , [<f2>] , [<f3>] ; [<options>] 

fl These are the object files produced by the FORTRAN Cotrpiler. Up 

to 16 different object files can be specified by separating file 
names with a slash (/) . 

f2 This specifies the load module file name. If this is emitted, the 

same name as the first fl is used with extension LO. 

f3 This file is used for outputting linkage information that is 

produced by the Linkage Editor. #PR or # is usually specified. 
#PR indicates that the linkage information is routed to the line 
printer, and # indicates that the system console is the 
destination. If emitted, # will be used. 

options This specifies the options for the Linkage Editor. Refer to the 
Linkage Editor User's Manual for further details on the options. 
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5.3 EXAMPLES 


Following are some exanples of load module generation. 


EXAMPLE 1: 


Preparation of the load module when compiling with one 
program. 


SOURCE > FORTRAN 

FILE 

SYS1:0..TEST.SA 


■> LISTING 
FILE 

Line Printer 


+ > OBJECT + 

FILE 

SYS1;O..TEST.RO 


LINKAGE < + 

EDITOR 


> load module 

SYS1:O..TEST.LO 


+ > linkage list 


Enter the FORTRAN command: 

FORTRAN SYSl:. .TEST,,#PR 

which invokes the FORTRAN Compiler, inputs the source program from 
SYS1:0. .TEST.SA, and prepares the object program SYS1:0. .TEST.RO 

then enter the LINK command; 

LINK SYSl ; . . TEST , , #PR; L=SYS0 : 0 . . FORTLIB. RO 

which invokes the Linkage Editor, irputs the object program frcsn 
SYSl; 0. .TEST.RO, and creates the load module in SYSl ; 0. .TEST. lO. 
The FORTRAN runtime library, FORTLIB. RO, is on volume SYS0:0. It 
need not be specified if SYSO is the logon volume. 


source 
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EXAMPLE 2 ; Pr^saration of the load module after compiling a source program and 
then linking together several relocatable object modules. 


SOURCE > FORTRAN > LISTING 

FILE . FILE 

VOL2;0. .MAIN.SA . Line Printer 

• 

. + > OBJECT 

. FILE 

PREPARED . VOL2:O..MAIN.RO 

OBJECT FILE 

VOL2:O..SUB1.RO 

1 > linkage < 

EDITOR 

+ > 

> load module 

VOL2:0. .MAIN.LO 

PREPARED 
OBJECT FILE 


VOL2:0.. SUB2.ro + > LINKAGE LIST 

Line Printer 


+ 


.+ 


Enter the FORTRAN command; 

FORTRAN VOL2:O..MAIN,,#PR 

v^iich invokes the FORTRAN Compiler, inputs the source program 
VOL2:0. .MAIN.SA, and prepares the object program VOL2:0. .MAIN.RO 

then enter the LINK command: 

LINK VOL2:0. .MAIN/VOL2;0. .SUB1/VOL2:0. .SUB2, ,#PR;L=FORTLIB 

which invokes the Linkage Editor, combines the object program compiled by 
the FORTRAN command and the two relocatable object programs, and creates the 
load module in VOL2:0. .MAIN.LO 
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5.4 RUNTIME LIBRARIES FOR VERSAmodule SYSTEMS 


The ccx3e produced by t±ie FORTRAN Connpiler is position-independent. The 
following commands create a load module fran TEST.RO. 


LINK , TEST. LO, TEST, LL 
SEG SEG0:7,15 
SEG SEG1:8-10 
IN 0..FINITVM2 
IN TEST.RO 


5.5 FREEING A SEGMENT FOR A FORTRAN PROGRAM 
5.5.1 Default Situation 

By default, the FORTRAN Carpi ler uses the following segment allocation scheme 
(refer to paragraph 6.3.1 for definition of segments arrd sections) : 

SEGO - Section 7 - Cannon blocks ard SAVE parameters 

SBGl - Section 8 - Runtime routines 

Section 9 - FOOTRAN program and subroutines, F0W1AT statements 

Section 10 - Constant strings 

SEG2 - Section 15 - Canmard line, stack area, ard RMA block 

At runtime, another segment is requested which is contiguous to the stack. This 
area is used for the stack and the parameter block areas associated with each 
file (logical unit). Therefore, all four segments are allocated. 


5.5.2 Freeing A Segment 

To free a segment, the Linkage Editor user commands must be used. The following 
exanple illustrates how program TEST would do this. 

=LINK , TEST. LO, TEST. LL 
SEG SEGO(R) :8-10 
SEG SEG1:7,15 
IN TEST.RO 
END 

To free more than one segment, all of the sections could be linked into one 
segment. 

SEG SEGO: 7-10, 15 

This, however, does not prevent the code from being overwritten by an illegal 
array reference. 
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5.6 SHARING A SEGMENT BETWEEN TWO FORTRAN TASKS 
5.6.1 Intertask Ccxmiunication Through a Global Cannon 

For several tasks to have access to a global FORTRAN conmon, the following steps 
must be taken. 

a. All RO (relocatable object) modules referencing this global common must 

be patched. For instance, if there is a global conmon named GLOBAL in a 
FORTRAN program TEST, then TEST.RO must be patched. Using utility DUMP, 
dump TEST.RO and look at the first several sectors of this file. Within 
these sectors will be found the external symbol definition (ESD) for 
GLOBAL. Preceding GLOBAL will be $17 which specifies GLOBAL as a common 
in section 7. $17 must be changed to $lx, where x could be any section 

other than 7, 8, 9, 10, or 15. For this example, assume GLOBAL is to be 
in section 5. Therefore, $17 must be patched to $15. 

b. Now a segment must be freed in the load module. See paragraph 5.5.2 for 
more information. The following example frees one segment, associates it 
with section 5 (GLOBAL) , and declares this segment to be globally 
shareable. 

=LINK , TEST. LO, TEST. LL;B 

SEG SHAR(G) :5 

SEG SEG1:8-10 

SEG SEG2;7-15 

IN TEST.RO 

END 

Now any other program v^ich has been linked in a similar fashion will share 
caranon GLOBAL found in segment SHAR. 


5.6.2 Sharing Program Segments 

FORTRAN tasks can use a shared program segment. The shared routines must be 
assembly language routines, which also includes the FORTRAN runtime library. 

The following exaitples explain how this shared segment can be created. The 
first example illustrates how two FOOTRAN tasks can share runtime library 
routines. Note that if one runtime routine is shared, they must all be shared. 
This is because all runtime routines are located in section 8. In general, the 
routines located in those sections contained by the shared segment are also 
shared . 
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EXAMPLE 1; Sharing the FORTRAN runtime library. 


The following Linkage Editor ccatmands must be used to share the runtime 
library: 


=LINK ,<load module f ile>,<listing file>;<options> 

SBG SEG0:7-10 

SBG SHAR(G) :8 

SEG SBG2:15 

IN <R0 modules> 

<other linker conmands> 

END 


No special options are required. Notice that a segment was freed by placing 
the FORTRAN code (section 9) in segment SEGO. 


EXAMPLE 2 : Sharing assembly language subroutines while not sharing the 

runtime library. 

A call to a subroutine produces an XREF (external reference) for section 9. 
If the subroutine is an assembly language routine, it may be incorporated in 
a shared program segment. To do this, the XREF must be changed from section 
9 to any other section except 7, 8, 10, or 15, as section 9 contains the 
code produced for the FORTRAN routine. To change this XREF, the RO module 
containing the XREF must be patched. For example: 

PROGRAM MAIN 

• • • 

CALL SHARE (I) 

XREF in section 9 for SHARE is produced. 

In MAIN.RO, the XREF for SHARE will look like $69 (XREF in section 9) , 
followed by SHARE. This can be found in the first few sectors of MAIN.RO. 
If SHARE is to be in section 11, $69 must be changed to $6B. In the 
assembly language source for SHARE, a SECTION 11 command is required. After 
this patching, the following linkage commands can occur: 

=LINK ,<load module name>,<listing file name>;<options> 

SEG SEGO: 7- 10 
SBG SHAR(G) :11 
SBG SBG2:15 
IN MAIN.RO 
IN SHARE.ro 

<other linker commands> 

END 


5.7 USEFUL EXTERNAL DEFINITIONS - XDEF 

The registers passed by the SCT can be found at a 4-byte offset from .FZWRK. 
.FZWRK is an XDEF which is at the beginning of section 15. 
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CHAPTER 6 


EXECUTION 


6.1 EXECUTION OF THE PROGRAM 

The FORTRAN load module can be executed by entering the following command: 
<conmand> [<fl>] [ [,<f2>] [ , . . . [,<fn>] ] ] [/(Xdevice name>] [;Z=n[:s] ] 
where: 

cotnmand is the load module file name. 

fl...fn is the file or device name(s) associated with logical unit 

number by position within list. Files are referenced by unit 
number within the program. 


NOTE 

This is the only time at which an external file 
can be assigned to a logical unit. Within the 
FORTRAN code, the ANSI subset standard does not 
provide this feature. Thus, the first file is 
associated with logical unit 1, the second file 
with logical unit 2, and the nth file with 
logical unit n. 


device name 


is the file or device name specified as the recipient of 
program output. 


Z=n[ :s] 


is the stack size and I/O buffer size. 


6.1.1 Program Not Requiring Other Files 

If a program does not require any other files, sirtply enter the program load 
module name and execute the program. Following is an exanple: 


=WORK:..TEST 


Volime Name 
User # 

Catalog Name 
File Name 
Extension Name 


W)RK 

default (number specified during logon) 

default 

TEST 

LO (default) 


By default, logical units 5 and 6 are assigned to the user's terminal. 


6-1 


6.1.2 Program Requiring Other Files 


If a program does require another file, the program can be entered as in the 
following exaitple: 

=<command> WORK: . .WORKFILE 


Coirtnand 
Volume Name 
User # 

Catalog Name 
File Name 
Extension Name 


Load module file name 
WORK 

default (number specified during logon) 

default 

WORKFILE 

ET (default) 


When this command is entered, it executes using WORKFILE assigned to logical 
unit 1. The following options may be associated with each file. 

(1) <file naite> [ (W) | (F(l [ :m] ) ) j (D(l [ :m] ) ) ] 

W Overwrites the file that already exists. 

Be cautious with this option because it will destroy existing 
records . 

F(l[;m]) Creates a new sequential file with the specified record length. 
Be sure not to specify an already existing file. 

1 Specifies the record ler^th. 

m Specifies the number of records (optional) . 

D(l[:m]) Creates a new indexed sequential file with the specified record 
length. Be sure not to specify an already existing file. 

1 Specifies the record length. The key length is always four 

bytes, leaving a data length of 1-4. 

m Specifies the number of records (optional) . 

When an option is not specified, it defaults to the files as they already 
exist (if a file already exists) . If a file is not allocated, it allocates 
a sequential file with variable-length records. 


(2) 0=<file name> I <device name> 

Specifies the output file (logical unit 6) that the FORTRAN 
program uses — in this case, the line printer. 
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(3) Z=n[:s] Specifies the stack size and the I/O buffer size. 

s Specifies the size of the I/O buffer in n (the stack) . If s 

is omitted, the I/O buffer size is n/2. If the Z option is 
omitted, it is assumed that the sizes are n = 32 (K) and s = 
16 (K) . When only n is specified, the stack size is n/2. If 
both n and s are specified, the stack size is n - s (K) , with 
the area that is not included on the stack used as I/O buffer 
or the parameter area. The expression for the evaluation of s 
is: s >= L + 0.09J + 0.5 (K) , where L is the largest record 

length in the file program and J is the number of units used. 


Following are some examples of program execution. 
EXAMPLE 1: 


(a) Description of the example 

This program adds two numerical values that are read from the console and 
writes the result to the console. 

(b) Command line for the ccmpilation of the program, its linkage, and its 
execution. 


(i) Compilation 


=FORTRAN WORK; . .ADD, ,#PR 


Volume Name 
User # 

Catalog Name 
File Name 
Extension Name 


WDRK 

default 

default 

ADD 

SA (default) 


LINE ISN SOURCE STATEMENT 


1 

00001 


PROGRAM ADD 

2 

00002 


WRITE (6, 50) 

3 

00003 

50 

F0K4AT(1X, 'INPUT DATA') 

4 

00004 


READ(5,100) I,J 

5 

00005 

100 

FOPMAT (14, IX, 14) 

6 

00006 


K=I+J 

7 

00007 


WRITE(6,200)K 

8 

00008 

200 

FORMAT (IX ,'ADD RESULT = ',16) 

9 

00009 


STOP 

10 

00010 


END 


FIGURE 6-1. Result of Ccxtpilation for Example 1 


© 

© 



1 
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(ii) Linkage 

=LINK WDRK: . .ADD, ,#PR;L=FORTLIB 

Volume Name WDRK 

User # default 

Catalog Name default 

Fi le Name ADD 

Extension Name RO (default) 


Options in Effect; -A, -B» — D> -H> -I* L» -M> 0i -P< -Q# -R> ~S< -Ui -X 


Unresolved References: None 


Multiply Defined Symbols: None 


Lengths (in bytes): 


Segment Hex Decimal 

SEG0 00000100 256 

SEGl 00004600 17920 

SEG2 00000400 1024 

Total Length 00004B00 19200 


No Errors 
No Warnings 


Load module has been created. 


FIGURE 6-2. Linkage Result for Exanple 1 
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(iii) Execution 


=WORK:. .ADD 



Volume Name 
User # 

Catalog Name 
File Name 
Extension Name 


WDRK 

default 

default 

ADD 

LO (default) 


Execute this module. After the input command is entered, wait for 
the system to respond. 


Input Data: 

1000 2000 

Execution Result: 

ADD RESULT = 3000 
**FORTRAN STOP 


Explanation of numbered itans: 

This program uses two logical units (5 and 6) , but since these are the units 
automatically assigned, the execution canmand requires only the load module (4) 
to execute. 

(1) Write INPUT DATA to logical unit 6. This defaults to the console 
because the comnand line (4) does not specify an alternative. 

(2) Read two integers from logical unit 5. This defaults to the console 
because the command line (4) does not specify an alternative. 

NOTE 

The FORTRAN subset does not support list-directed 
format statOTents. Therefore, the FORMAT statement 
must be adhered to. 


(3) Write the result of the addition to console. 

(4) Invoke program WOElK:..ADD. 

(5) Exaiiple of an input to READ statanent (2) . 

(6) Result of adding 1000 to 2000 (3) . 

(7) This message is sent to the system console whenever the 
STOP instruction is executed. 


© 

© 

(!) 
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EXAMPLE 2: 


(a) Description of the exaitple 


This program outputs to a direct access file five numerical values that are 
read from the console. The odd-numbered record entries are added, and 
their sum is sent to the printer. 


(b) Corrrtiand line for the coipilation of the program, its linkage, and its 
execution. 


(i) Conpilation 

=PORTRM WORK: . .CODADD, ,# 

WORK 
default 
default 
CDDADD 
SA (default) 


Volume Name 
User # 

Catalog Name 
File Name 
Extension Name 


The listing file in this exaitple is sent to the user's terminal. The 
relocatable object module defaults to WORK: . .CODADD.RO. 


LINE 

ISN 

SOURCE STATEMENT 

1 

00001 


PROGRAM ODDADD 

2 

00002 


OPEN < 1 , ACCESS® ' D I RECT ' , RECL=i 

3 

4 

00003 

00004 


DO 200 N=l, 5 

READ<5, 100) I ^ 

5 

00005 

100 

FORMAT (14) 

6 

00006 

200 

WRITE(1,REC®N)I 

7 

00007 


ISUM=0 ^ 

DO 300 N=l, 5, 2 

8 

00008 


9 

00009 


READ(1,REC=N)I 

10 

00010 

300 

ISUM=ISUM+I 

WRITE <6, 400) ISUM 

11 

00011 


12 

00012 

400 

FORMAT(' ODD RECORD ADDITION 

13 

00013 


STOP 

14 

00014 


END 



16) 


FIGURE 6-3. Result of Conpilation for Exaitple 2 
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(ii) Linkage 


=LINK WORK: . .ODDADD, ,# ;L=PORTLIB 


Volume Name 
User # 

Catalog Name 
File Name 
Extension Name 


WORK 
default 
default 
ODDADD 
RO (default) 


It links the object file given above with the Library during 
execution. It also outputs the results to the user's console and 
creates the load module file with the extension name LO. 


Options in 
Unresolved 


Effect: -A, -B* -D, -H, -I, L, -M. 0. -P> -Q» -R» -S, -U. -X 

References: None 


Multiply Defined Symbols: None 


Lengths <in bytes): 


Segment Hex Decimal 

SEG0 00000100 256 

SEGl 00004800 18432 

SEG2 00000400 1024 

Total Length 00004D00 19712 


No Errors 
No Namings 


Load module has been created. 


FIGURE 6-4. Linkage Result for Example 2 
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(iii) Execution 


© 


=WDRK: . .ODDADD WDRK: . .F1(D(8) ) ,0=#PR 


Volume Name 
User # 

Catalog Name 
File Name 
Extension Name 


WORK 
default 
default 
CDDADD 
LO (default) 


Execute this module. After the input ccstmand is entered, wait for 
the system to respond with a proirpt for input data to be entered. 


Input Data: 

1000 

2000 

3000 

4000 

5000 



Execution Result: 

COD RECORD AEOITION = 9000 
**FORTRAN STOP 


Explanation of the numbered itens: 

When invoking the program (5) , logical units 1 and 6 are assigned to direct 
access file WOE?K:..Fl and the printer, respectively. Logical unit 5 defaults to 
the user's console. 

(1) Open logical unit 1 for direct access. 

(2) Read five data elements from the user's console and write the data to 
logical unit 1. 

(3) Read odd data records. 

(4) Output the addition result to logical unit 6. 

(5) The execution ccmmand. Option D(8) means that the indexed sequential 
file has a key length of four bytes and a data length of four bytes for 
a total record length of eight bytes. 

(6) The input data. 

(7) The resulting output. 


NOTE 


Because the file already exists, it must be deleted 
before the above coitmand line is entered again. An 
alternative, when the file exists, is to invoke the 
program as: 


=W0RK: . .ODDACO WORK: . .FI 

This results in use of the existing file rather than 
an attempt to allocate another. 
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EXAMPLE 3: 


(a) Description of the exartple 

This program copies the first five records in a direct access file to a 
sequential access file with unformatted records. 

(b) Coirmand line for the conpilation of the program, its linkage, and its 
execution. 

(i) Conpilation 

=FORTRAN VK)RK:..FC3DPY,,#PR 

Volume Name 
User # 

Catalog Name 
File Name 
Extension Name 


WDRK 

default 

unused 

FOOPY 

SA (default) 


The listing file in this example is sent to the printer. The 
relocatable object module defaults to FCOPY.RO. 


LINE 

ISN 

SOURCE STATEMENT 

1 

6100131 

PROGRAM FCOPY 

2 

00002 

OPEN<li ACCESS' 

3 

00003 

DO 100 N=l, 5- 

4 

00004 

READd. REC 

5 

00005 

WRITE(2) I 

6 

00006 

100 CONTINUE 

7 

00007 

STOP 'COPY' 

8 

00008 

END 


..a/ 


0 


-© 


FIGURE 6-5. Result of Corpilation for Example 3 
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(ii) 


Linkage 

=LINK WDRK; . .FCOPY, ,#PR;L=PORTLIB 


Volime Name 
User # 

Catalog Name 
File Name 
Extension Name 


WDRK 

default 

default 

FCOPY 

W) (default) 


It edits and combines the object file given above with the Library 
during execution. It also outputs the results to the printer and 
creates the load module file with the extension name LO. 


Options in 
Unresolved 


Effect; -A, -B, -D, -H. -I, L, -M, Q. -P/ -Q> -R. -S, -U, -X 


References: None 


Multiply Defined Symbols; None 


Lengths (in bytes); 


Segment Hex Decimal 

SEG0 00000100 256 

SEGl 00004700 18176 

SEG2 00000400 1024 

Total Length 00004C00 19456 


No Errors 
No Warnings 


Load module has been created. 


FIGURE 6-6. Linkage Result for Exaii5>le 3 



(iii) Execution 


=WORK; . .FCOPY WDRK; . .FI .WORK; . .F2 


Volume Name 
User # 

Catalog Name 
File Name 
Extension Name 

Execute this module. 

Execution result: 

**FORTRAN STOP COPY 


WORK 

default 

unused 

FCOPY 

LO (default) 


© 


Explanation of the numbered items: 

The coitmand line for this program (3) assigns file FI to logical unit 1, and 
file F2 to logical unit 2. 

File FI does not require a D(8) specification because it was created by another 
program. In fact, it would be illegal to specify D(8) in this case. File F2 is 
a sequential file with variable- length records. 


(1) Open logical unit 1 for direct access. 

(2) Read a record from logical unit 1 and write data to unit 2. This loop 
is repeated five times. 

(3) Execute FORTRAN STOP statanent and display the word COPY on the user's 
console upon coitpletion. 
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6.2 FILES 


6.2.1 File Formats 

There are four kinds of VERSAdos file formats: a sequential file; a contiguous 
file; and indexed sequential files, with and without duplicate keys. 

A sequential file has an optional record length and does not require contiguous 
sectors. A contiguous file has a record length of 256 and does require 
contiguous sectors. The indexed sequential file is a sequential file with keys 
for each record. 

The sequential file contains ASCII data and can be read and written with FORTRAN 
input/output statements. FORTRAN direct access files contain ASCII or binary 
data and use indexed sequential files. 


6.2.2 Record Formats 

There are two kinds of record formats in FORTRAN: variable and fixed length 

records. 

A variable length record has a length of 1 to 65,535 bytes. To read a record, 
the specified length of the record in the FORMAT statanent must be equal to or 
smaller than the actual record length of the file. To write a record, these 
lengths must be equivalent. To rewrite a record with a WRITE statement, the 
fixed length record file is useful. A fixed length record has the same record 
length throughout a file. To create a new fixed length file, either F(l[:m])) 
or D(l[:m]) (refer to paragraph 6.1.2) must be specified as a file option on the 
command line. 


6.2.3 File Access Methods 

There are two methods for accessing files in FORTRAN: sequential and direct 

access . 

Sequential access is the orderly access of one record at a time. The sequential 
access is able to use the READ, WRITE, BACKSPACE, REWIND, and ENDFILE 
statements. Logical units 5 and 6 are sequentially accessed. 


LINE 

ISN 

SOURCE STATEMENT 

1 

00001 


PROGRAM EXl 

2 

00002 


READ (5. 100)1 

3 

00003 

100 

FORMAT ( 12) 

4 

00004 


J = 1+2 

5 

00005 


WRITE(6, 500)J 

6 

00006 

500 

FORMAT (14) 

7 

00007 


STOP 

8 

00008 


END 


FIGURE 6-7. Sequential Access; Input/Output 
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A direct access file is accessed with a specified record number. The READ and 
WRITE statements can be used with direct access files. The direct access file 
uses a fixed length record file that contains the record. The record number is 
specified by REC= in the READ and WRITE statements. The record length is 
specified for the data size that the WRITE statement outputs plus the key size 
of four bytes. The four bytes are used as an information area for direct access 
files. An example is listed below. 


LINE 

ISN 

SOURCE STATEMENT 

1 

00001 

PROGRAM DIRECT 

2 

00002 

DIMENSION A(10),B(10) 

3 

00003 

OPENd, ACCESS= 'DIRECT 

4 

00004 

WRITEd, REC=1)A 

5 

00005 

WRITEd, REC=2)B 

6 

00006 

STOP 

7 

00007 

END 


FIGURE 6-8. Direct Access I/O 


In this exanple, the file associated with logical unit 1 has been specified as a 
direct access file with a record length of 44 bytes. Arrays A ard B occupy 40 
bytes each (four bytes per each real element) . Therefore, it is possible to 
write the entire array A in record number 1 (line 4) and to write array B in 
record number 2 (line 5) . If the OPEN statement were changed to OPEN (1, ACCESS 
= 'DIRECT', RECL = 40), then array B would be written to record number 3, 
because array A would occupy records 1 and 2. 


6.2.4 Formatted and Unformatted I/O 

The format of an input/output statement can be specified in FORTRAN in the 
following manner. Two examples are given to illustrate the two cases. 

In the case of input /output with the FORMAT statement specified in a READ or 
WRITE statement, the record unit length is from a left parenthesis "(" to a 
right parenthesis ") " or from a slash "/" to another slash "/". In Figure 6-9, 
READ and WRITE statements (line 2 and line 5) have their format specified by 
FORMAT statements (line 3 and line 6, respectively) and execute their I/O 
accordir^ly. 


LINE ISN SOURCE STATEMENT 


1 

00001 


2 

00002 


3 

00003 

100 

4 

00004 


5 

00005 


6 

00006 

500 

7 

00007 


8 

00008 



PROGRAM EX3 
READ <5, 100 >J 
FORMAT (12) 

1 = 1+1000 

WRITE (6, 500)1 

FORMAT (10H RESULT = 

STOP 

END 


FIGURE 6-9. Input/Output with FORMAT 


14, 5X, 3H*«*) 
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If the READ or WRITE statement does not specify a FORMAT statement, it executes 
in the default manner. The record size for the I/O is the data size plus four 
bytes (for a control area) . If the record length of a file is not large 
enough, it irputs/outputs a multiple number of records. 


LINE ISN SOURCE STATEMENT 


1 00012)1 

2 00002 

3 00003 

4 00004 

5 00005 

6 00006 


PROGRAM EX4 

OPENCl, ACCESS= 'DIRECT', RECL=16) 

READ < 1, REC=N) I 

WRITE(2) I 

STOP 

END 


FIGURE 6-10. Input/Output without a FORMAT Statement 


In this case, since the format is not specified, the WRITE statement (line 4) 
outputs the data read by the READ stateient (line 3) without any modifications. 


6.3 LOAD MODULE 

6.3.1 Memory Organization 

The FORTRAN Compiler produces relocatable object modules. These relocatable 
object modules consist of sections (the logical units into which code/data are 
placed) , which are linked with other relocatable object modules to produce the 
load module. The basic unit of a load module is the segment. 


TABLE 6-1. Memory Organization 


SEGMENT 

NUMBER 

SECTION 

NUMBER 

CONTENTS 

0 

7 

Cannon Block Variables (SAVE *) and SAVEd Variables 

1 

8 

Runtime Routines 

1 

9 

FORTRAN Program and Subroutines, FOE?MAT Statements 

1 

10 

String Constants 

2 

15 

Command Line, Stack Area, and RMA Block 

(SAVE *) ; 

All ccatmon 

blocks are SAVEd. (Refer to ANSI Standard.) 
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6.4 FORTRAN STATEMENTS THAT CONTROL EXECUTION 

This section explains the relationship between FORTRAN statanents and execution. 


6.4.1 PAUSE Statement 

The PAUSE statement is used to stop execution momentarily. When this statement 
executes, it outputs a message to the user's console and stops the execution. 
It then waits for the return key before continuing with the execution of the 
next statement. If there is no user's console, this statonent does nothing, and 
execution continues with the next statement. 

**FORTRAN PAUSE [<text>] 

<text>, which can be any string enclosed in single quotes, is printed 
when the PAUSE statement is executed. 


6.4.2 STOP Statement 

The STOP statement is used to stop execution of the program. When this 
statement executes, it outputs a message to the user's console and stops the 
execution. 


**FORTRAN STOP [<text>] 

<text>, which can be any string enclosed in single quotes, is printed 
when the STOP statement is executed. 

Refer to the three execution examples in paragraph 6.1. 


6.4.3 ENDFILE Statement 

The ENDFILE statement writes an END OF RECORD to the file, but it does nothing 
in the operating system. Thus, it cannot delete a created record. 


WRITE (1) A 
WRITE (1) B 
BACKSPACE 1 
ENDFILE 1 


FIGURE 6-12. EM)FILE Statement 


The record remains on the file with the ENDFILE statement execution. 
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6.5 DEFAULT LOGICAL UNITS 


Logical units 5 and 6 are always the read and write default logical units on 
VERSAdos systems. The remaining logical units are assigned by their position 
within the ccxnmand line as was described in paragraph 6.1. If there is no 
coirmand line, as in a SYSGENed environment, then the logical units are assigned 
as described in Chapter 8. 
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CHAPTER 7 


INCLUSION OF ASSEMBLY ROUTINES 


7.1 INTRODUCTION 

A call to an assembly language routine from a FORTRAN program is handled like a 
call to a FORTRAN subroutine or function in a FORTRAN program, and execution 
continues with the next statement. 

7.2 INTERFACE WITH EXTERNAL PROCEDURE (WITHOUT ARGUMENTS) 

When calling an external procedure, the return address is placed on the stack. 

Stack 

(A7) -> Return Address 


Pre-Call Top of 
Stack 


FIGURE 7-1. Stack Contents when Control is Passed to the Procedure 


7.3 INTERFACE WITH EXTERNAL PROCEDURE (WITH ARGUMENTS) 

When calling an external function or procedure into which it is necessary to 
transfer arguments, the address of the arguments is put onto the stack followed 
by the return address. If the called routine is a function, the result is 
returned to the calling routine in DO. If the format of the function is to 
return a double-length result (eight bytes) , it is left on top of the stack when 
returning from the function call. 

A = FUN(B,C,D) 

Stack 

(A7) -> Return Address 


Function Result 
(2, 4, or 8 bytes) 


D Address (4 bytes) 


C Address (4 bytes) 


B Address (4 bytes) 


Pre-Call Top of 

Stack < highest address 


FIGURE 7-2. Stack Contents when Control is Passed to a Procedure 

Requiring Arguments 
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Figure 7-2 shows the contents of the stack when control is transferred to 
function FUN. The stack pointer (A7) points to the return address. Immediately 
under the return address are two, four, or eight bytes for the function result. 
Next are the addresses of the actual parameters. Note that the address of the 
last parameter (D in the exaitple) is immediately under the function result. 

When control is passed back from the function, the stack pointer (A7) points 
below the return address. If it is a REAL*8 function, the result is on top of 
the stack; otherwise, the result is also put into DO. Adjusting the SP to point 
to the place it pointed to before executing the calling sequence is the 
responsibility of the caller. 

For functions returning a LOGICAL result, written in assembly language, it is 
essential that the zero bit (Z) of the status register be properly set (or 
cleared) on return. This is achieved by loading DO with the function result (0 
or 1) immediately before return. Thus, the control returns to the instruction 
following the one which called the function, and data register DO contains the 
result of the function. 


7.4 EXAMPLE OF COMBINING ASSEMBLY ROUTINES 

To combine FORTRAN and assembly language routines, the interface should be as 
illustrated in Figure 7-1 and Figure 7-2. Figures 7-3 and 7-4 give further 
examples . 

For the code: 

=FORTRAN WORK:..ASMLNK,,#PR;S,T= ASM LINK TEST 


LINE 

ISN 

SOURCE STATEMENT 

1 

00001 


PROGRAM ASMEX 

aC 

3 

A 


C 

Computes the time necessary 

•t 

5 

00002 


REAL *8 D1.D2. D3 

6 

00003 


REAL AVE, TOTAL 

7 

8 
9 

00004 


INTEGER START. STOP 

00005 


D2 = 1. 765D0 

10 

00006 


D3 - 3. 45765D2 

CALL TIME (START) ( 1 J 

DO 10 1= 1, 10000 

11 

00007 


12 

00008 


13 

00009 

10 

D1=D2*D3 

14 

00010 


CALL TIME (STOP) 

15 

00011 


TOTAL = ( STOP-START)/ 1000. 0 

16 

00012 


AVE - TOTAL / 10000. 0 

17 

00013 


WRITE (6. 20) TOTAL, AVE 

18 

00014 

20 

FORMATdX, 'TIME IN SECONDS'. 

19 



1 ' TOTAL » '. F10. 6 . ' 

20 

00015 


STOP 

21 

00016 


END 


AVERAGE TIME 


F10. 8) 


NOTE 


(1) The call to an assembly language routine frcxn a FORTRAN program is the 
same as a FORTRAN subroutine call. 


FIGURE 7-3. FORTRAN Program Calling an Assaribly Language Routine 


7-2 



For the code; 


=ASM WDRK;..TIME,,#PR;L 


1 

2 > 

3 

4 

5 

6 O 

7 

8 

9 9 

10 9 

11 9 

12 9 

13 9 

14 9 

15 

«««««« 


00000000 

00000000 00000008 
00000009 

00000000 41F900000000 
00000006 704A 
00000008 4E41 
OOOOOOOA 4CDF0300 
OOOOOOOE 22B900000004 
00000014 4ED0 


TOTAL ERRORS 0— 

TOTAL WARNINGS 0 — 


« Assembly language routine callable from FORTRAN. 

♦ Routine tails VERSAdos' EXEC which returns the date 

* since Jan 1 and the number of millisecs since midnight. 

« Calling routine passes address of desired destination. 


SECTION 
PARMBLK DS L 

^^>VSECT10N 

r2TxDEF 

TIME^-^ LEA 

TIME 

PARMBLK. AO 

MOVE, L 

*74, DO 

TRAP 

*1 

MOVEM. L 

<A7)+, AO/Al 

MOVE. L 

PARMBLK +4, (A1 ) 

JMP 

(AO) 

END^ 





DATE, TIME IN MILLISECONDS 


POINT AT PARAMETER BLOCK 
OTDTIM DIRECTIVE 

GET SYSTEM DATE b TIME IN PARMBLK 
RETURN ADDR b PARM ADDR OFF STACK 
RETURN THE TIME (ELAPSED MS) 


NOTES 

(1) XDEF TIME defines to the outside world the name of this routine. 

(2) FORTRAN routines are placed in section 9; this declaration allocates the 
assembly language routine to the same section. (See paragraph 6.3 for 
outline.) 

(3) The subroutine/function entry point must not be included as a parameter 
on the END statarient. Doing so will cause the resultant load module, 
after linking, to begin execution in the subroutine rather than in the 
main program. 


FIGURE 7-4. Assembly Language Routine Callable from FORTRAN 


The following LINK command is used to combine the two code segments into a load 
module: 

=LINK WORK: . .Aa4LNK/W0RK: . .TIME, ,#PR;L=FORTLIB 
In this exanple, the LINK is the same as in other FORTRAN programs. 
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7.5 REGISTER USAGE IN FORTRAN PROGRAMS 

The following registers are used in FORTRAN programs in the indicated manner. 
FORTRAN assumes that all registers are saved upon entry to a subroutine. 
Therefore, user-created assetnbly language subroutines must preserve the value of 
the following registers: 

A3 - Base address of RTL routines. 

A4 - Base address for dummy arguments of statement functions. 

A5 - Base address of the (.FCBREF) SAVE and common variables. 

A6 - Base address for local variables and parameters. 
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CHAPTER 8 


EDRTRAN'S RMA (RUNTIME MAINTENANCE AREA) 


8.1 RUNTIME MAINTENANCE AREA 

The Runtime Maintenance Area (RMA) is a data block which contains global 
information for the runtime routines. Each logical unit which is in use has a 
Unit Control Block (UCB) which contains a File Handling Services (EHS) block and 
an Irput/Output Services (lOS) parameter block. The UCB's are in the RMA. 
Other information contained in the RMA would include format flags, and the 
beginning and the end of the free memory space. 

In the default situation the RMA is located in the middle of the runtime 
allocated segment. Its address is contained in A5 throughout execution. 


8.2 RMA LAYOUT 

The following equates represent the layout of the RMA. 


X 

CMRGB 

EQU 

0 

(LENGTH) 

X 

OEJSP 

EQU 

CMRGB-f-0 

(^) 

lOFLAGI 

EQU 

CMRGB+'4 

(2) 

lOFLAG 

EQU 

CMRGB+5 


QWRITE 

EQU 

0 <BIT> 


QCOREF 

EQU 

1 <BIT> 


QDFLTU 

EQU 

2 <BIT> 


QDIREC 

EQU 

3 <BIT> 


QFORMT 

EQU 

^ <BIT> 


QENDAD 

EQU 

5 <BIT> 


OERRAD 

EQU 

6 <BIT> 


QIOST 

EQU 

7 <BIT> 


lOFLAGl 

EQU 

CMRGB+A 


QHIOST 

EQU 

0 <BIT> 


UNITN 

EQU 

CMRGB+6 

(2) 

CFLINF 

EQU 

CHRGB+8 

(6) 

CFLINFS 

EQU 

CFLINF+0 

(2) 

CFLINFA 

EQU 

CFLINF+2 

<^) 

RECN 

EQU 

CMRGB+2^ 

<A> 

ADREOF 

EQU 

CMRGB+16 


ADRERR 

EQU 

CMRGB+20 

<^) 

ADIOST 

)K 

EQU 

CMRGB+2^ 

<^) 

X 

ADCUCB 

EQU 

CMRGB+28 

<-^) 

ADTUCB 

EQU 

CMRGB-f32 

(-<») 

ADSUCB 

EQU 

CMRGB+36 

<^) 

ADBBUF 

EQU 

CMRGB+^0 

(A) 

ADEBUF 

EQU 

CMRGB+^-9 


ADCBUF 

EQU 

CMRGB+-^8 

<^> 

ADESPC 

EQU 

CMRGB+52 

(^) 

ADBFSP 

X 

EQU 

CMRGB+56 

<^> 

x 

ADBFMT 

EQU 

CMRGB+60 

(■^) 

ADCFMT 

EQU 

CMRGB+A^ 

(^) 

ADLPNl 

EQU 

CMRGB-4-68 

(^) 

ADLPN2 

EQU 

CMRGB+72 

<^> 

REPNl 

EQU 

CMRGB+76 

(2) 

REPN2 

EQU 

CMRGB+78 

(2) 

REPN3 

EQU 

CMRGB+80 

<2) 

SCALF 

EQU 

CMRGB+82 

(2) 

BNIND 

EQU 

CMRGB+8^ 

(1) 

EFORMT 

EQU 

CMRGB-i-85 

(1) 


start of com-rea. 

STACK PTR. OF OBJECT REGS STORED 
PARAM OF READ/WRXTE 


UNIT** 

REC* 

END* 

ERR* 

lOSTAT* 


I0STAT=INTEGER*2 
UNIT NUMBER 
INTERNAL FILE 
SIZE 
ADDRESS 

REC* *D. A, * 

END* 

ERR* 

lOSTAT* 


ADDR. OF CURRENT UCB 

ADDR. OF CRT UCB (6> 

ADDR. OF LISTING UCB <6) 

BEGINNING OF BUFFER whoes buffer??? 

END OF BUFFER 

CURRENT OF BUFFER of current ucb??? 
END OF SPACE top of i/o-buffer. 
BEGINNING OF FREE SPACE in i/o-buff. 


BEGINNING OF FORMAT 

CURRENT OF FORMAT 

ADDR. OF FIRST LEVEL LEFT PAREN. 

ADDR OF SECOND LEVEL LEFT PAREN. 

REPEAT SPECIFICATION OF OUTER LOOP 

REPEAT SPECIFICATION OF INNER LOOP 

DUPLICATION COUNTER 

SCALE FACTOR 

FORMAT BN INDICATER 

END OF FORMAT IND. 
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SGNSCN 

EOU 

CMRGB-fS6 

<1) 

SIGN SCANED 

□MINUS 

EQU 

♦FF 


MINUS 

□PLUS 

EQU 

♦FO 


PLUS 

FMTDLM 

EQU 

CMRGB+87 

(1) 

DELIMITER SCANED 

PRDSCN 

EQU 

CMRGB-i-88 

<1) 

PRIOD SCANED 

EXPSCN 

X 

EQU 

CMRGB-t-89 

<1) 

FORMAT SCANED 

X 

FMTINF 

EQU 

CMRGB+91 

(7) 

FORMAT INFORMATION 

FMTCOD 

EQU 

FMTINF+0 

<1) 

FORMAT CODE 

QFI 

EQU 

5 


I 

QFD 

EQU 

8 


D 

QFE 

EQU 

12 


E 

OFF 

EQU 

16 


F 

QFG 

EQU 

20 


G 

QFL 

EQU 

2^ 


L 

QFA 

EQU 

28 


A 

QFZ 

EQU 

32 


Z 

QFAA 

EQU 

36 


A (NO HID) 

FMTWID 

EQU 

FMTINF+1 

(2) 

FORMAT WIDTH 

FMTDIG 

EQU 

FMTINF+3 

(2) 


FMTEXP 

w 

EQU 

FMTINF+5 

<2) 

EXP. PART DIGITS 

DATINF 

EQU 

CMRGB+98 

(6) 

INFORMATION OF I/O LIST 

DATADR 

EQU 

DATINF+0 

<^) 

ADDR. OF I/O LIST 

DATLEN 

EQU 

DATINF+^ 

<1) 

LENGTH OF ELEMENT 

DATTYP 

EQU 

DATINF+5 

(1) 

TYPE 

QTI 

EQU 

0 <BIT> 


INTEGER 

QTR 

EQU 

1 <BIT> 


REAL 

QTL 

EQU 

2 <EIT> 


LOGICAL 

QTC 

X 

EQU 

3 <BIT> 


CHAR 

X 

ADRTRN 

EQU 

CMRGB+10-^ 

<^) 

ADDR. OF . FIFMT/. FINFT 

ADRACC 

EQU 

CMRGB+108 

<^) 

ADDR. OF . FISEQ/. FIDIR/. FICFL 

ADRCNV 

EQU 

CMRGB+112 

<^) 

ADDR. OF . FICVI/. FICVO 

X 

RCONT 

EQU 

CMRGB+116 

<2) 

RECORD COUNTER OF UNFORMATTED I/O 

DATRLEN 

EQU 

CMRGB+118 

<2) 

REMAINING BYTES OF UNFORMATTED I/O , 

X 




SET TO 0 BY FIINT 

X 




SET TO DATLEN BY FILST 

X 

X 




RESET TO REMAINING BY FINFT 

X 

ERRNUM 

EQU 

CMRGB+120 

<2) 

ERROR NUMBER 

ERRINF 

EQU 

CMRGB+122 

<12) 

ERROR INFORMATION 

ERRINFl 

EQU 

ERRINF+1 

<1) 

LENGTH OF CHAR. 

ERRINF3 

EQU 

ERRINF+2 

(1) 

LENGTH OF DATA (HEX) 

ERRINF2 

EQU 

ERRINF+4 

<^) 

ADDR. OF CHAR. 

ERRINFL 

X 

EQU 

ERRINF+8 

<^) 

ADDR. OF DATA (HEX) 

X 

UCBLEN 

EQU 

CMRGB+136 

<^) 

LENGTH OF UCB content. 

RECFLG 

W 

EQU 

CMRGB+13^ 

<2) 


lOKIND 

EQU 

CMRGB+1^0 

<1) 


QCKI 

EQU 

1 



QCKL 

EQU 

2 



QCKF 

EQU 

3 



X FIXED 

BUG: SEE 

LAST PARAGRAPH OF 

STANDARD 13. 3 

CONREP 

EQU 

CMRGB+1^1 <1) 

FLAG: RESET AT INITIALIZATION AND WHEN 

X 




AN OUTER '('IS ENCOUNTERED; SET WHEN 

X 




A REPEATABLE EDIT DESCRIPTOR IS 

X 




ENCOUNTERED. MEANS THAT CURRENT PORTION 

X 




OF FORMAT SPEC MAY BE REUSED 

REPEAT 

EQU 

CMRGB+142 <2) 

REPEAT SPECIFICATION OF CURRENT 


X 

X 

X 

X 

X 

XFREE 1^^-159 
CMRGE EQU 

X 


POTENTIAL REUSABLE PORTION OF FORMAT 
SPEC. INITIALLY SET TO KALL FORMAT IS 
REUSED) J AFTER OUTER IS ASSIGNED 

THE SAME VALUE AS REPNKBUT IS NOT 
DECREMENTED LIKE IT). 


CMRGB-i-i60 
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)K 


ZERO 

EQU 

0 


ONE 

EQU 

1 


TWO 

EQU 

2 


THREE 

EQU 

3 


FOUR 

EQU 

4 


FIVE 

EQU 

5 


SIX 

EQU 

6 


SEVEN 

EQU 

7 


EIGHT 

EQU 

8 


NINE 

EQU 

9 


TEN 

EQU 

10 


C99 

EQU 

99 


C132 

EQU 

132 


C255 

EQU 

255 


m 

X PARAMETER TO . 

FISEQ/. FIDIR/. FICFL 

X 

D1 



QINIT 

EQU 

0 

INITIAL. I/O CALL 

QNEXT 

EQU 

4 

NEXT RECORD I/O CALL 

QFINL 

EQU 

8 

FINAL I/O CALL 

m 

X RETURN CODE FROM . 

FISEQ/. FIDIR/. FICFL 

X 

DO 



QNRM 

EQU 

0 

NORMAL 

QEOF 

EQU 

1 

END OF FILE 

QERR 

EQU 

2 

ERROR OCCURED 

X RETURN CODE FROM . 

FIUBA 

X 

DO 



QREADY 

EQU 

0 

ALREADY OPENED 

QFOUND 

EQU 

1 

NOT OPENED, BUT UCB FOUND 

QCREAT 

EQU 

2 

UCB NOT FOUND, CREATE. 

X RETURN CODE FROM . 

FIFMT/. FINFT 

QCMPLT 

EQU 

0 

PROCESSING RECORD COMPLETED 

QUNCPT 

EQU 

1 

PROCESSING RECORD NOT COMPLETED 


X 


X 

X PARAMETER OF GET SEGMENT AND RECEIVE SEGMENT ATTRIBUTE 

X 


SEGMPB 

EQU 

0 




TASKN 

EQU 

0 

(4) 

TASK NAME 


SESSN 

EQU 

4 

(4) 

SESSION NAME 


DIROPT 

EQU 

8 

(2) 

DIRECTIVE OPTION 


SEGATT 

EQU 

10 

(2) 

SEGMENT ATTRIBUTE 


SEGNAM 

EQU 

12 

(4) 

SEGMENT NAME 


LOGADR 

EQU 

16 

(4) 

LOGICAL ADDRESS 


SEGLEN 

EQU 

20 

(4) 

SGMENT LENGTH 

♦ 140 

RETADR 

EQU 

24 

(4) 

RECEIVE AREA ADDR. 

OF RECEIVE SEG. ATT. 4140 

X 





♦ 140 

X RECEIVE AREA 

OF 

RET. 

SEG. ATT. 

♦ 140 

X 





♦ 140 

RSASN 

EQU 

0 

(4) 

SEGMENT NAME 

♦ 140 

RSASA 

EQU 

4 

(2) 

SEGMENT ATTRIBUTE 

♦ 140 

RSABA 

EQU 

6 

(4) 

BEGINNING ADDR. 

♦ 140 

RSAEA 

EQU 

10 

(4) 

ENDING ADDR. 

♦ 140 

RSAFA 

EQU 

12 

(4) 

PHISICAL ADDR. 

♦ 140 


X *1^0 

X 

xxxxxxx RMA EQUS 

X 

RMA EQU 0 

RMASC7 EQU ^0 

RMAFMA EQU 

RMASC6 EQU 48 

RMACML EQU 52 

RMAEFS EQU 56 

RMAORG EQU 60 

RMAEND EQU 64 

X 

X ERROR NUMBER 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


♦ 140 

♦ 140 

♦ 140 

♦ 140 

♦ 140 


BASED <A5) start of i/o-buff 
ADDR(. FESC7) main-Froarani LOCALS. 

ADDR<. FMAIN) nialn-Froaram's addr 
ADDR<. FESC6) inain-Froaram SAVE+COMMON4140 
ADDR(. FCOML) command-line (from mainpros) 
ADDR (END OF FREE SPACE) top of i/o-buff. 


ADDR (SAVE REGS OF OS) in . FZWORK 
END=ADDR(CMRG) followed b« COM-REGION. 


♦ 140 

♦ 140 


♦ 140 

♦ 140 


X 
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ElOl 

EQU 

101 

RECURSIUE CALL 

E102 

EQU 

102 

UNIT NO. OUT OF RANGE 

E103 

EQU 

103 

END OF RECORD 

ElO^ 

EQU 

10-1 

FORMAT CODE MISSING 

E105 

EQU 

105 

INVALID CHARACTER IN FORMAT 

E106 

EQU 

106 

NEST OUT OF RANGE IN FORMAT 

E107 

EQU 

107 

NUMBER OUT OF RANGE IN FORMAT 

E108 

EQU 

108 

ILLEGAL DISCRIPTORS IN FORMAT 

E109 

EQU 

109 

ILLEGAL SIGN WITHOUT SCAL FACTOR 

Elio 

EQU 

110 

INVALID DECIMAL CHARACTER 

Elll 

EQU 

111 

INVALID CHARACTER 

E112 

EQU 

112 

INVALID HEXADECIMAL CHARACTER 

E113 

EQU 

113 

FIXED OVERFLOW 

Ell-I 

EQU 

111 

FLOATING OVERFLOW 

E115 

EQU 

115 

FLOATING UNDERFLOW 

E116 

EQU 

116 

NOT ENOUGH RECORDS UNFORMATED READ 

E117 

EQU 

117 

TOO MANY RECORDS UNFORMATED WRITE 

E118 

EQU 

118 

ASSIGN MISSING 

E119 

EQU 

119 

INSUFFICIENT MEMORY FOR BUFFER 

E120 

EQU 

120 

ERROR RETURN ON FHS 

E121 

EQU 

121 

READ NOT SUPORTED DEVICE 

E122 

EQU 

122 

WRITE NOT SUPORTED DEVICE 

E123 

EQU 

123 

BACKSPACE NOT SUPORTED DEVICE 

E12-^ 

EQU 

12-1 

REWIND NOT SUPORTED DEVICE 

E125 

EQU 

125 

ENDFILE NOT SUPORTED DEVICE 

E12& 

EQU 

126 

DIRECT ACCESS NOT SUPORTED 

El 27 

EQU 

127 

SEQUENTIAL ACCESS NOT SUPORTED 

E128 

EQU 

128 

UNFORMATED NOT SUPORTED 

E129 

EQU 

129 

ILLEGAL DIRECT WITHOUT OPEN STMT. 

E130 

EQU 

130 

ALREADY ACCESSED DIRECT 

E131 

EQU 

131 

ALREADY ACCESSED SEQUENTIAL 

E132 

EQU 

132 

I/O ERROR AT SEQUENTIAL ACCESS 

E133 

EQU 

133 

I/O ERROR AT DIRECT ACCESS 

E13‘^ 

EQU 

13-1 

END OF FILE 

E135 

EQU 

135 

ALREADY OPENED 

E136 

EQU 

136 

ILLEGAL RECORD FORMAT 

E137 

EQU 

137 

RECORD LENGTH OF OPEN STMT CT OF FILE 

E138 

EQU 

138 

RECORD NUMBER LE 0 

E139 

EQU 

139 

NO FORMATTING FILE 

El'<tO 

EQU 

1-10 

I/O ERROR AT PAUSE OR STOP 

El^l 

EQU 

111 

ERROR OCCURED AT CLOSE 

E1^2 

EQU 

112 

OUT OF RANGE OF ARRAY ELEMENT 

E1^3 

EQU 

113 

INSUFFICIENT MEMORY 

El'^^ 

EQU 

111 

ZERO DIVIDE 

E1^5 

EQU 

115 


El-IA 

EQU 

116 


E1^7 

EQU 

117 


El-18 

EQU 

118 


E1^9 

EQU 

119 


E150 

EQU 

150 



LIST 
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8.3 UCB LAYOUT 


The following equates represent the matiory layout for each UCB. The basic 
format is an overhead data block followed by the lOS parameter block and then 
the FHS parameter block. Detailed information of the lOS and the FHS parameter 
blocks are contained in the VERSMos Data Management Services and Program Loader 
User's Manual. 


*...UCB 


UCB 

EQU 

0 



UCBNEXT 

EQU 

UCB+0 (^) 

ADDR. OF NEXT UCB 


UCBLUN 

EGU 

UCB+^ ( 1 ) 

LOGICAL UNIT NO. 


OPNFLG 

EQU 

UCB+S ( 1 ) 

0 -closed. QOPEN - opened. 


QOPEN 

EQU 

1 

OPENED 


ACSFLG 

EQU 

UCB+6 < 1 ) 



QSEQ 

EQU 

1 

SEQUENTIAL ACCESS 


QDXR 

EQU 

2 

DIRECT ACCESS 


UCBFDCD 

EQU 

UCB+7 < 1 ) 

FILE/DEVICE CODE <FROM FHS) 


QCONTIG 

EQU 

0 

CONTIGUOS FILE 


QSEQUEN 

EQU 

1 

SEQUENTIAL FILE 


QISEQND 

EQU 

2 

INDEXED SEQUENTIAL FILE (NO DUPLICATE KEY 

QISEQDK 

EQU 

3 

INDEXED SEQUENTIAL FILE (DUP. 

KEYS ALLOWD 

QTRMNLI 

EQU 

30 

INTERACTIVE TERHINAL ON IPC INTERFACE 

QTRMNLL 

EQU 

35 

INTERACTIVE TERMINAL ON LOCAL 

DRIVER 

QDISCFP 

EQU 

^0 

5/10 MB DISC. FIXED PLATTER 


QDISCRP 

EQU 


5/10 MB DISC. REMOVABLE PLATTER 

QFLPYSS 

EQU 

SO 

FLOPPY. SINGLE DENSITY SINGLE 

SIDED 

QFLPYSD 

EQU 

51 

FLOPPY. SINGLE DENSITY DOUBLE 

SIDED 

QFLPYDD 

EQU 

52 

FLOPPY. DOUBLE DENSITY DOUBLE 

SIDED 

QMGTAPE 

EQU 

60 

MAGNETIC TAPE 


QLLPI 

EQU 

90 

LOW SPEED LP ON IPC 


QHLPl 

EQU 

91 

HIGH SPEED LP ON IPC 


QLLPL 

EQU 

95 

LOW SPEED LP ON LOCAL DRIVER 


QASYCOM 

EQU 

100 

ASYNCHRONOUS COMM. LINE 


QNULLD 

EQU 

255 

NULL DEVICE 


UCBDATTW 

EQU 

UCB+8 <2) 

DEVICE ATTRIBUTES WORD (FROM FHS) 

UCBDATT 

EQU 

UCB+9 



QREADAT 

EQU 

0 <BIT> 

SUPPORTS READ 


QWRITAT 

EQU 

1 <BIT> 

SUPPORTS WRITE 


QBINRAT 

EQU 

2 <BIT> 

SUPPORTS BINARY 


QRANOAT 

EQU 

3 <BIT> 

SUPPORTS RANDOM 


QIMAGAT 

EQU 

^ <BIT> 

SUPPORTS IMAGE 


QHALTAT 

EQU 

5 <BIT> 

SUPPORTS HALT I/O 


QPOSTAT 

EQU 

6 <BIT> 

SUPPORTS POSITION RECORD 


QFILMAT 

EQU 

7 <BIT> 

SUPPORTS FILEMARK 


UCBDATT 1 

EQU 

UCB+8 



QINTRAC 

EQU 

0 . BIT> 

INTERACTIVE DEVICE 


UCBRECL 

EQU 

UCB+10 <2) 

RECORD LENGTH (FROM FHS) 


PREIO 

EQU 

UCB+12 <1) 



QPREAD 

EQU 

0 <BIT> 

READ 


QPWRITE 

EQU 

1 <BIT> 

WRITE 


QPBCSP 

EQU 

2 <BIT> 

BACKSPACE 


QPREWID 

EQU 

3 <BIT> 

REWIND 


QPENDFL 

EQU 

^ <BIT> 

ENDFILE 


QPOPEN 

EQU 

5 <BIT> 

OPEN 


QPFIRST 

EQU 

6 <BIT> 

FIRST I/O 


PREIOl 

EQU 

UCB+13 <1) 



QPUNFT 

EQU 

0 <BIT> 

UNFORMATTED I/O 


QPCUNB 

EQU 

1 <BIT> 

PROCESS IN BACKSP OF UNFORMAT 

REC. 

RECLEN 

EQU 

UCB+1-1 (2) 

RECORD LENGTH OF OPEN STMT. 


nc 

lOSHD 

EQU 

UCB+16 

lOS PARAMETER BLOCK (in UCB) 


lOSCODE 

EQU 

IOSHD+0 (1) 



QROTRAN 

EQU 

«00 

DATA TRANSFER REQUESTS 


QRCFUNC 

EQU 

«01 

COMMAND FUNCTIONS 


lOSFUNC 

EQU 

IOSHD+1 <1) 



QDREAD 

EQU 

1 

READ REQUEST 


QDWRIT 

EQU 

2 

WRITE REQUEST 


QDOUIN 

EQU 


OUTPUT WITH INPUT 


QDUPDT 

EQU 

8 

UPDATE REQUEST 


QDDELT 

EQU 

«10 

DELETE RECORD 
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QDFMTD 

EOU 

»20 


FORMAT DISK 

QCPSTN 

EQU 

1 


POSITION 

QCRMND 

EQU 

2 


REWIND 

QCTEST 

EQU 



TEST I/O 

QCWAIT 

EQU 

B 


WAIT ONLY 

QCHALT 

EQU 

*10 


HALT I/O 

QCBRAK 

EQU 

*20 


BREAK SERVICE 

lOSOPTW 

EQU 

IOSHD+2 

<2) 


lOSOPT 

EQU 

IOSHD+3 



QOBNRY 

EQU 

0 <BIT> 


ASCII/BINARY BIT 

QOPRCD 

EQU 

1 <BIT> 


WAIT/PROCEED BIT 

QOIMAG 

EQU 

3 <BIT> 


FORMAT/IMAGE BIT 

GH3BRAK 

EQU 

^ <BIT> 


BREAK NOTIFICATION BIT 

QOSECH 

EQU 

5 <BIT> 


SUPRESS ECHO BIT 

QOBLCK 

EQU 

6 <BIT> 


RECORD/BLOCK ACCESS BIT 

QORKEY 

EQU 

7 <BIT> 


LOGICAL RECORD/RANDOM KEY ACCESS BIT 

lOSOPTl 

EQU 

IOSHD+2 

(1) 


XXC)KXXXXX}K}K 




QORTKY 

EQU 

0 <EIT> 

RETURN KEY WITH RECORD BIT 

QOCMPA 

EQU 

1 <BIT> 

COHPLETION ADDRESS BIT 

QOIIMG 

EQU 

2 <BIT> 

INPUT FORMAT/IMAGE BIT 

QOSCMM 

EQU 

3 <BIT> 

PRIMARY/SECONDARY MEhORY MAP BIT 

QOPRMT 

EQU 

^ <EIT> 

FORMAT OPTION BIT 

QOLNEXT 

EQU 

«00 


NEXT RECORD 

QOLCRNT 

EQU 

«20 


CURRENT RECORD 

QOLPRIR 

EQU 

♦-10 


PRIOR RECORD 

QOLRECN 

EQU 



RECORD ASSOCIATED WITH lOSRECN 

* lOSOPT OF 

SEQ. 



QIOPAFRN 

EQU 

«0000 

FORMATTED WITHOUT CONTIGUOUS FILE 

QIOPBIRN 

EQU 

♦ Q'^09 

UNFORMATTED WITHOUT CONTIGUOS FILE 

QIQPBIBN 

EQU 


UNFORMATTED CONTIGUOUS FILE 

* lOSOPT OF 

DIR. 



QIOPAFRR 

EQU 

*6000 

FORMATTED WITHOUT CONTIGUOUS FILE 

QIOPBIRR 

EQU 

♦6-109 

UNFORMATTED WITHOUT CONTIGUOUS FILE 

QIOPBIBR 

EQU 

♦6^19 

CONTIGUOUS FILE OR DISC 

* lOSOPT OF 

PSN. 



QIOPECS 

EQU 

♦^000 

BACKSPACE 

QIOPRWD 

EQU 

♦ 0000 

REWIND 

* lOSOPT OF 

PST. 



QIOPSTP 

EQU 

♦0000 

STOP , PAUSE 

lOSSTUS 

EQU 

IOSHD+^ (1) 


QERILF 

EQU 

♦82 


ILLEGAL FUNC. (SEE ONLY BACKSPACE) 

QEREOF 

EQU 

♦C2 


END OF RECORD 

QERCFND 

EQU 

♦CA 


RECORD FOUND 

lOSLUN 

EQU 

IOSHD+5 <1) 


lOSRECN 

EQU 

IOSHD+8 (^) 


lOSSTRT 

EQU 

IOSHD+12 ' 

t4) 


lOSEND 

EQU 

IOSHD+16 ( 

C4) 


lOSTRNL 

EQU 

IOSHD+2 0 ' 

t4) 


X 

FHSHD 

EQU 

UCB+^^ 


FHS PARAMETER BLOCK (in UCB) 

FHSCODE 

EQU 

FHSHD+0 <1) 


QCDEVF 

EQU 

♦ 00 


DEVICE/FILE COMMANDS 

QCUTLY 

EQU 

♦ 01 


UTILITY COMMANDS 

FHSCHND 

EQU 

FHSHD+1 <1) 


QFCHKPT 

EQU 

1 


CHECK POINT 

QFDELET 

EQU 

2 


DELETE 

QFCLOSE 

EQU 

4 


CLOSE 

QFPRTCT 

EQU 

8 


PROTECT 

QFRENAM 

EQU 

♦ 10 


RENAME 

QFCHGAP 

EQU 

♦20 


CHANGE ACCESS PERMISSION 

QFASSGN 

EQU 

♦40 


ASSIGN 

QF ALLOC 

EQU 

♦80 


ALLOCATE 

QUCHGLU 

EQU 

♦ 10 


CHANGE LU ASSIGNMENT 

QUFTDMN 

EQU 

♦20 


FETCH DEVICE MNEMONICS 

QUFTDIR 

EQU 

♦40 


FETCH DIRECTORY ENTRY 

QURETAT 

EQU 

♦80 


RETRIEVE ATTRIBUTES 

XFHSOPT 





QFHOAP 

EQU 

♦ 0004 


ACCESS PERMISSION = PUBLIC READ/WRITE 

QFHOAPW 

EQU 

♦ 0002 


A. P. = PUBLIC WRITE 

QFHOAF-R 

EQU 

♦0000 

A. P. » PUBLIC READ 

QFHOOW 

EQU 

♦0008 


OVERWRITE OPTION 
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QFHOPE 

EQU 

*00^0 


OPEN POSITION IS END OF FILE 

QFHOSF 

EQU 

«0100 


SEQUENTIAL FILE 

QFHOIF 

EQU 

»0200 


INDEXED SEQ. FILE <NO DUP. KEY) 

QFHOIFD 

EQU 

*0300 


INDEXED SEQ. FILE (DUP. KEY ALLOWED) 

FHSOPT 

EQU 

FHSHD+2 

<2) 

UPPER ONE BYTE DEVICE CODE (TO UCBFDCD) 

FHSSTUS 

EQU 

FHSHD+^ 

(1) 

RETURN STATUS 

QERFUN 

EQU 

«02 


INVALID FUNCTION 

QERAAS 

EQU 

»0D 


ALREADY ASSIGNED 

QEF^EFL 

EQU 

♦ 17 


FILE NOT EXIST 

FHSLUN 

EQU 

FHSHD+5 

<1) 

LOGICAL UNIT NO. 

FHSFDMP 

EQU 

FHSHD+6 


POINTER OF FETCH DEVICE MNEMONIC 

FHSUSN 

EQU 

FHSHD+10 

(2) 

USER NUMBER 

FHSFDML 

EQU 

FHSHD+10 

<^> 

LENGTH OF FETCH DEVICE MNEMONIC 

FHSVOLN 

EQU 

FHSHD+6 


VOLUME NAME 

FHQCATN 

EQU 

FHSHD+12 


<8) CATALOG NAME 

FHSEXT 

EQU 

FHSHD+28 

<2) 

EXTENSION 

FHSFILN 

EQU 

FHSHD+20 

<8> 

FILE NAME 

FHSDATT 

EQU 

FHSHD+32 

<2) 

DEVICE ATTRIBUTE WORD 

FHSRECL 

EQU 

FHSHD+3^ 

(2) 

RECORD LENGTH 

FHSSIZE 

X 

UCBEND 

X 

IDS 

EQU 

EQU 

FHSHD+36 

FHSHD+^0 



EQU 

2 

TRAP 

NO. 

FHS 

EQU 

LIST 

3 

TRAP 

NO. 
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CHAPTER 9 


RUNTIME INTERFACE FOR NON-VERSAdos SYSTEMS 


1.1 INTRODUCTICN 

The runtime routines supplied with M68000 FORTRAN depend upon the presence of 
VERSAdos for proper operation. This chapter explains how to create a FORTRAN 
load module which is dependent upon RMS68K and BIOS, a basic I/O system. The 
information in this chapter applies to those users who have purchased the RMS68K 
package. Source is provided in the IMS68K package to allow customizing. 


9.2 ADDING FILE HANDLING SERVICES TO BIOS 

BIOS may be SYSGENed with RMS68K to provide basic I/O functions for user tasks. 
In the RMS68K and BIOS environment provided by Motorola, the File Handling 
Services (FHS) are not provided. In support of this environment, the FORTRAN 
runtime library FORTBIOS is provided. This runtime library does not contain any 
FHS calls, which inplies that no file I/O can occur. 

If a user wants to provide file support, then the file handling services may be 
added to BIOS. In this case the library, FORTVMC, would be needed. 

The following table identifies the serial and parallel port configuration for 
VERSAmodules 1 and 2. 


SYSTEM SERIAL 
VMOl 1 

2 

VM02 1 

2 


PARALLEL LU 

5 READ LOGICAL UNIT 

6 WRITE LOGICAL UNIT 

4 READ, WRITE LOGICAL UNIT 

1 3 WRITE LOGICAL UNIT 

5 READ LOGICAL UNIT 

6 WRITE LOGICAL UNIT 

4 READ, WRITE LOGICAL UNIT 


No Parallel 
Port 


9.3 EXAMPLE 

The following exaitple illustrates a SYSGEN command file which allows the user to 
generate an operating system with a FORTRAN task. For more information about 
the SYSGEN facility, refer to the Systan Generation Facility User's Manual. 

For more information about BIOS, refer to M68000 Family Real-Time Multitasking 
Software User's Manual, Appendix H. 


9-1 



This file builds up the operating system for a VM02 
board system. The operating system includes the 
EXEC, BIOS, and INITialization tasks, and FORTRAN 
task FORT. 


* SYSTEM PARAMETERS 

* 


GST=4 

UST=2 

TRACE=5 

I0V=1 

MMU=$0 

TIMER=$F70000 

CLOCKFRQ=800 

TIMINTV=10 

* 

TIMSLIC=2 

* 

PANEL=$0 
MEMEND1=$ 20000 
MEMEND2=$ 20000 
MEMEND3=$40000 
UDR=0 

TRCFLAG=$C000 

WHERLOAD=$0 

PAT=2 

BUGTRAC=$F000BC 

PO$EOO 

STACK=$C00 

KILVECT=142 

SERPTS=140 

PTMVECT=28 

FAIL=141 

SWABRT=31 

NRAD1=0 

DPRVAO=0 

NUSRRAD=0 

IOBINT4=$74 

IOBINT3=$73 

IOBINT2=$72 

IOBINTl=$71 

BCLRV=147 


Global Segment Table - number of pages 
User Sonaphore Table - number of pages 
Trace Table - number of pages 

I/O Vector Table - number of pages 
Address of MMU 
Address of timer 

Number of clock ticks per millisecond 
Number of milliseconds between timer 
interrupts 

Number of timer interrupts before task 
forced to relinquish processor 
Front panel address 
Maximum manory address 


User-defined directive tables not existent 
Trace flag 

Manory address where boot file loaded 

Pages in the Periodic Activation Table 

Address of VERSAbug trace routine 

Initialize Program Counter 

Stack location 

Killer vector number 

Serial port vector number 

Timer vector number 

AC fail vector number 

Software abort vector number 

Number of RADI boards on systan 

Dual-ported RAM VERSAbus address offset 

Number of RADI users/boards 

I/O channel interrupt vector number 

I/O channel interrupt vector number 

I/O channel interrupt vector number 

I/O channel interrupt vector number 

Bus clear interrupt vector number 


* Build EXEC 

* 

STARTRMS=$F00 
PROCESS VM2.EMSV2.LO 
END EXEC 
MSG EXEC BUILT 

* 

* Build BIOS 

* 

MEMBEG=* 

TASK VM2.BI0S.L0 
BIOSSTRT=* 

SUBS VM2.LBIOS.CF 
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LINK VM2.LBI0S.CF 
SESSI0N=1 
PRIORITY=200 
END BIOS 
MSG BIOS BUILT 
* 

* Build FORTRAN program 

* 

TASK VM2.FORT.LO 
FORTSTRT=* 

SUBS VM2.FORT.CF 
LINK VM2.FORT.CF 
SESSION=2 
PRIORITY=100 
ATTRIB='USER' 

END FORT 

MSG FORT BUILT 
* 

* Build INITializer 

* 

PROCESS VM2.INIT.LO 
SUBS VM2.INTIOV2 

ASM VM2 . EQUTIMER . SA/VM2 . INTIOV2 . SA,VM2 . INTIOV2 . RO , VM2 . INTIOV2 . LS 
SUBS VM2.INDV.SA 

ASM FIX:77.VM2.INDV,FIX:77.VM2.INDV,FIX:77.VM2.INDV 
INTSTR=* 

SUBS VM2.LNKINT2.CF 
LINK VM2.LNKINT2.CF 
END INIT 
MSG INIT BUILT 
END 

The following are listings of the chain files mentioned above. 

a. VM2.LBIOS.CF - link BIOS 

=LINK ,VM2.BIOS.LO,#PR;MIX 
SEG SEG0:8 \BIOSSTRT 
IN FIX:77.VM2.BIOS 
END 

b. VM2.FORT.CF - link FORTRAN program 

The LINK command must have the S and the -P options. 

=LINK ,FIX;77.VM2.FORT,#PR;SMIX-P 

SEG SEG0:6,7 \FORTSTRT 

SEG SEG1:8,9 

SEG SEG2:15 

IN FIX:77.VM2.TEST1 

LIB FIX:0.&.FORTBIOS 

LIB FIXrO.&.FORTMATH 

END 

=END 


9-3 



c. VM2.LNKINT2.CF - link initializer 


=LINK ,VM2.INIT.L0,#PR;IXHM 
SEGMENT .INT:8 \INTSTR 

INPUT VM2 . INIT.R0,VM2 . INTIOV2.RO,VM2. INDV.R0,VM2 .SYSPARV.RO 

END 

=END 


The following ccxnnand line was used to execute the above SYSGEN file: 

=SYSGEN SYSFORT,/VMCSYS.TESTl.SY,#PR;R 
There are two ways to test VMCSYS.TESTl.SY: 

a. Use the utility BUILDS to transform the binary load module into a file of 
ASCII-encoded information. Then use VERSAbug camnands to load and execute 
the S-record file. Refer to the VERSAdos System Facilities Reference Manual 
for more information on BUILDS and S-records. 

b. To test a VMC 68/2 system, use the following steps. 

1) Patch the following addresses on sector 0 of the floppy diskette 
containing the SYSGENed program. 

$16 - starting sector number frcxn DIR +1 (1 word) 

$18 - length of program - 1 from DIR (1 word) 

$1E - beginning address of EXEC from SYSGEN (2 words) 

2) Reset the VMC 68/2 and do the following: 

- BH 0,1 (Boot and Halt from channel 0 device 1) 

- .A7 COO (set PC) 

- G (execute) 
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APPENDIX A 


COMPILER MESSAGES 


This appendix describes the messages output by the Compiler. There are three 
types: 

a. a diagnostic message output to the listing file when the Compiler 
encounters a source program error (Table 1 ) , 

b. a message output to the user's console to describe the condition of the 
compile (Table 2 ) , and 

c. an abnormal ending message which is output to the user's console when an 
extraordinary termination occurs (Table 3) . 


TABLE 1. Error Messages 


ERROR 

NUMBER 

ERROR 

LEVEL 

DESCRIPTION 

002 

E 

INVALID CHARACTER APPEARS IN COLUMNS 1-5 OF LINE 

003 

E 

THE STATEMENT NUMBER HAS ALREADY BEEN DEFINED 

004 

E 

THE FIRST CHARACTER OF THE STATEMENT IS NOT ALPHABETIC 

005 

E 

CONTINUATION LINE ENCOUNTERED WHEN COMMENT OR INITIAL LINE 
EXPECTED 

006 

E 

LIMIT OF 9 CONTINUATION LINES EXCEEDED 

007 

W 

COLUMNS 1-5 OF A CONTINUATION LINE ARE NOT BLANK 

009 

W 

MISSING 'END' STATEMENT 

010 

W 

THE NAME \P IS TOO LONG. IT HAS BEEN TRUNCATED TO SIX 
CHARACTERS 

Oil 

E 

SYMBOL TABLE OVERFLOW 

014 

E 

REAL CONSTANT OVERFLOW 

015 

F 

ILLEGAL COMMAND LINE 

016 

E 

INVALID CONSTANT FORMAT 

017 

E 

INTEGER CONSTANT OVERFLOW 

018 

F 

INTERNAL ERROR: ILLEGAL NODE TYPE FOUND IN "CODE GEN". 

022 

E 

EXPECTING RIGHT PARENTHESIS 
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TABEiE 1. Error Messages (cont'd) 


ERROR 

NUMBER 

ERROR 

LEVEL 

DESCRIPTION 

023 

E 

EXPECTING SINGLE QUOTE 

025 

E 

UNDECODABLE STATEMENT 

026 

E 

INVALID CHARACTER \P 

033 

W 

INVALID STATEMENT AFTER END STATEMENT. IT WAS IGNORED 

035 

F 

ILLEGAL OPTION (S) IN COMMAND LINE 

036 

F 

ILLEGAL INPUT FILE NAME 

037 

F 

ILLEGAL OUTPUT FILE NAME 

038 

F 

ILLEGAL LISTING FILE NAME 

040 

E 

MISSING PROGRAM NAME 

041 

E 

MISSING SUBROUTINE NAME 

042 

E 

MISSING FUNCTION NAME 

044 

E 

NON-SYMBOLIC NAME IS SPECIFIED IN TYPE SPECIFICATION STATEMENT 

045 

E 

INVALID ARRAY DECLARATOR \P 

047 

E 

EXPECTED COMMON BLOCK NAME 

048 

E 

MISSING COMMA 

049 

E 

NON-SYMBOLIC NAME IN AN EQUIVALENCE LIST 

051 

E 

INCORRECT LENGTH SPECIFICATION IN TYPE SPECIFICATION STATEMENT 

052 

E 

MISSING LIST OF NAMES IN INTRINSIC STATEMENT 

053 

E 

INVALID TYPE OR LENGTH SPECIFICATION IN IMPLICIT STATEMENT 

054 

E 

INVALID LETTER IN IMPLICIT STATE34ENT \P 

055 

E 

INVALID DIMENSION DECLARATOR IN \P 

056 

E 

THE LENGTH OF A LITERAL IS LONGER THAN THE VARIABLE OR 
ARRAY ELEMENT 

064 

E 

ILLEGAL STATEMENT IN BLOCKDATA SUBPROGRAM 

065 

E 

ATTEMPT TO DEFINE A PREVIOUSLY DEFINED NAME IN EXTERNAL 
STATEMENT \P 
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TABLE 1. Error Messages (cont'd) 


ERROR 

NUMBER 

ERROR 

LEVEL 

DESCRIPTION 

067 

E 

NAME IN AN INTRINSIC STATEMENT MUST BE AN INTRINSIC FUNCTION 
NAME \P 

069 

E 

ATTEMPT TO DEFINE A PREVIOUSLY DEFINED NAME IN INTRINSIC 
STATEMENT \P 

070 

E 

ATTEMPT TO DEFINE A PREVIOUSLY DEFINED NAME IN SAVE STATEMENT 

072 

E 

ATTEMPT TO ESTABLISH THE TYPE OF A CHARACTER MORE THAN ONCE 

073 

E 

THE RANGE OF LETTERS IN AN IMPLICIT STATEMENT LIST IS NOT 
ALPHABETIC 

079 

E 

ATTEMPT TO DEFINE A PREVIOUSLY DEFINED NAME AS A COMMON 
VARIABLE \P 

083 

E 

WRONG NUMBER OF SUBSCRIPTS IN AN EQUIVALENCE LIST 

085 

E 

A VARIABLE'S DIMENSION IS NOT A SIMPLE INTEGER VARIABLE \P 

086 

E 

ATTEMPTING TO USE A PREVIOUSLY DEFINED NAME AS AN ARRAY \P 

087 

E 

AN ADJUSTABLE ARRAY OR ASSUMED SIZE ARRAY MUST BE A DUMMY 
ARGUMENT \P 

088 

E 

ATTEMPTING TO REDIMENSION A VARIABLE \P 

090 

E 

INVALID FORMAT OF AN ASSUMED SIZE ARRAY DECLARATION 

092 

E 

A VARIABLE DIMENSION \P IS NOT A DUMMY ARGUMENT OR COMMON 
VARIABLE 

093 

E 

MORE THAN 3 DIMENSIONS FOR THE ARRAY \P 

098 

E 

INVALID SYMBOLIC NAME APPEARS IN DATA STATEMENT \P 

099 

E 

A VARIABLE WAS PREVIOUSLY INITIALIZED IN A DATA STATEMENT 

100 

E 

ATTEMPT TO INITIALIZE NAMED COMMON ENTITY \P NOT IN BLOCK 
DATA SUB 

101 

E 

ATTEMPTING TO INITIALIZE A BLANK COMMON VARIABLE \P 

102 

E 

TYPE OF DATA AND VARIABLE DO NOT MATCH 

108 

E 

A FUNCTION MUST NOT BE (F TYPE CHARACTER 

112 

E 

ADJUSTABLE ARRAYS ARE VALID ONLY IN PROCEDURE SUBPROGRAMS 

123 

E 

INVALID REFERENCE TO SUBROUTINE NAME 
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TABLE 1. Error Messages (cont'd) 


ERROR 

NUMBER 

ERROR 

LEVEL 

DESCRIPTION 

126 

E 

A DO LOOP PARAMETER IS NOT AN INTEGER EXPRESSION OR IS MISSING 

131 

E 

THE DO INDEX IS NOT A SIMPLE INTEGER VARIABLE 

133 

E 

MISSING INPUT/OUTPUT LIST IN IMPLIED DO LIST 

135 

E 

TYPE DISAGREEMENT BETWEEN LEFT AND RIGHT SIDE OF EQUAL SIGN 

139 

E 

ILLEGAL SEQUENCE OF OPERATORS/OPERANDS IN EXPRESSION 

143 

E 

TYPE DISAGREEMENT BETWEEN ACTUAL AND DUMMY ARGUMENT 

150 

E 

DIVIDE BY ZERO 

152 

E 

UNDEFINED STATEMENT FUNCTION, OR STATEMENT FUNCTION REFERENCE 
ERROR 

154 

E 

STATEMENT FUNCTION STATEMENT NAME CONFLICTS WITH PRIOR 
DEFINITIONS \P 

155 

E 

DISAGREEMENT BETWEEN TYPE OR NUMBER OF ACTUAL AND DUM4Y 
ARGUMENTS 

156 

E 

MISMATCH IN NUMBER OF ACTUAL AND DUMMY ARGUMENTS IN AN 
INTRINSIC FUNCTION 

157 

E 

\P IS DOUBLY DEFINED 

158 

E 

PROCEDURE \P APPEARS AS ARGUMENT WITHOUT EXTERNAL DECLARATION 

159 

E 

THERE IS AN ASSUMED SIZE ARRAY IN INPUT/OUTPUT LIST \P 

160 

E 

STATEMENT FUNCTION STATEMENT NAME \P PASSED AS PARAMETER OR IN 
COMMON 

163 

E 

THERE IS AN ERROR ON THE LEFT SIDE OF AN ASSIGNMENT STATEMENT 

166 

E 

UNDECODABLE TYPE OF GOTO STATEMENT 

172 

E 

LOGICAL IF CONTAINS ILLEGAL STATEMENT (S) 

174 

E 

DO CONTROL VARIABLE USED PREVIOUSLY IN THE NEST 

175 

E 

ILLEGAL TERMINAL STATEMENT CF DO 

179 

E 

RECORD AND EOF SPECIFIER CONFLICT 

180 

■ E 

FORMAT AND RECORD SPECIFIER CONFLICT 

181 

E 

MISSING FORMAT IDENTIFIER WHERE AN INTERNAL FILE IS SPECIFIED 
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TABLE 1. Error Messages (cont'd) 


ERROR 

NUMBER 

ERROR 

LEVEL 

DESCRIPTION 

182 

E 

INTERNAL FILE AND RECORD SPECIFIER CONFLICT 

183 

E 

WRITE STATEMENT MUST NOT CONTAIN AN EOF SPECIFIER 

189 

W 

RETURN STATEMENT APPEARS IN THE MAIN PROGRAM 

195 

W 

MAIN PROGRAM HAS NO STOP STATEMENT 

197 

W 

FUNCTION VALUE NOT DEFINED IN THE FUNCTION SUBPROGRAM 

199 

E 

ANYTHING AFTER A STATEMENT IS ILLEGAL 

200 

E 

EXPECTING STATEMENT LABEL 

201 

E 

EXPECTING COMMA OR RIOiT PARENTHESIS 

203 

E 

EXPECTING SYMBOLIC NAME 

204 

E 

EXPECTING COMMA OR RIGHT PARENTHESIS 

205 

E 

EXPECTING LEFT PARENTHESIS 

206 

E 

EXPECTING COMMA 

207 

E 

EXPECTING EQUAL SIGN 

208 

E 

EXPECTING LABEL, SYMBOLIC NAME, CHARACTER CONSTANT, 'REC' 
OR 'END' 

211 

E 

EXPECTING 'DIRECT' 

215 

E 

EXPECTING 'THEN' 

218 

E 

EXPECTING 'TO' 

220 

E 

MULTIPLE 'END' OR 'REC' SPECIFIED 

224 

W 

NO STATEMENT LABEL AFTER ARITHMETIC IF, 'GOTO', 'STOP', 
OR 'RETURN' 

226 

E 

REFERENCE TO ILLEGAL STATEMENT LABEL 

227 

E 

ILLEGAL TRANSFER INTO DO LOOP, IF BLOCK, ELSE IF BLOCK OR 
ELSE BLOCK 

230 

E 

INCREMENTATION PARAMETER IS ZERO 

235 

E 

THE DO CONTROL VARIABLE IS REDEFINED WITHIN THE DO LOOP 

237 

E 

THE VARIABLE MUST BE OF TYPE INTEGER 
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TABLE 1. Error Messages (cont'd) 


ERROR 

NUMBER 

ERROR 

LEVEL 

DESCRIPTION 

251 

E 

MORE THAN THREE LEVELS OF PARENTHESES IN FORMAT SPECIFICATION 

254 

E 

NUMERIC SPECIFICATION GREATER THAN 255 IN FOK4AT SPECIFICATION 

255 

E 

NUMERIC SPECIFICATION IS ZERO IN FORMAT SPECIFICATION 

257 

E 

DIGITS OF FRACTIONAL PART EXCEED TOTAL DIGITS OF NUMBER 

260 

E 

CHARACTER CONSTANT LENGTH GREATER THAN 255 IN FORMAT 
SPECIFICATION 

261 

E 

MISSING 'N' OR 'Z' AFTER 'B' 

265 

E 

THE FIRST CHARACTER OF A CHARACTER FORMAT SPECIFICATION 
IS NOT ' ( ' 

267 

E 

NO STATEMENT LABEL ON FOK4AT STATEMENT 

270 

E 

FORMAT INDEX VARIABLE MUST BE INTEGER*4 

271 

W 

USELESS DATA TYPE - EXPECTED VARIABLE, ARRAY OR FUNCTION \P 

272 

E 

OVERFLOW IN HEXADECIMAL NUMBER (MORE THAN 8 DIGITS) 

273 

E 

ILLEGAL CHARACTER IN HEXADECIMAL NUMBER 

274 

E 

MISSING ENDING 'H' IN HEXADECIMAL NUMBER 

275 

E 

UNRECOGNIZED NAME OF LOGICAL/RELATIONAL OPERATOR 

276 

E 

DOUBLE-REAL CONSTANT OVERFLOW 

277 

E 

MORE THAN ONE PERIOD DETECTED IN REAL CONSTANT 

278 

E 

MORE THAN ONE EXPONENT DETECTED IN REAL CONSTANT 

279 

E 

UNDERFLOW IN REAL CONSTANT 

281 

E 

TWO DIFFERENT VARIABLE TYPES ARE BOUND BY EQUIVALENCE 
STATEMENT \P 

282 

E 

TOO EQUIVALENCED CHARACTER ENTITIES DO NOT HAVE THE SAME 
LENGTH \P 

283 

E 

TWO DIFFERENT ARRAY ELEMENTS ARE ASSIGNED TO THE SAME 
ADDRESS \P 

285 

E 

CHARACTER DATA AND NONCHARACTER DATA CANNOT BE IN THE SAME 
COMMON \P 
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TABLE 1. Error Messages (cont'd) 


ERROR 

NUMBER 

ERROR 

LEVEL 

DESCRIPTION 

287 

E 

COMMON BLOCK STORAGE CANNOT BE EXTENDED UPWARD BY 
EQUIVALENCE \P 

289 

E 

A COMMON VARIABLE AND A SAVE VARIABLE ARE EQUIVALENCED \P 

290 

E 

ELEMENTS OF DIFFERENT COMMON BLOCKS ARE EQUIVALENCED \P 

293 

E 

THE SUBSCRIPT OF \P IN AN EQUIVALENCE STATEMENT IS INVALID 

297 

F 

CAN'T OPEN INPUT FILE 

298 

F 

CAN'T OPEN LISTING FILE 

300 

E 

INTERNAL ERROR 

301 

E 

INTEGER EXPRESSION IS EXPECTED 

302 

E 

NUMBER SHOULD BE GREATER THAN ZERO 

303 

E 

EOF MUST NOT BE SPECIFIED FOR AN INTERNAL FILE 

304 

E 

FORMAT IDENTIFIER, IF ANY, MUST BE SECOND ITEM IN CIOLIST 

305 

E 

UNEXPECTED EQUAL SIGN 

306 

E 

ILLEGAL FOroiAT SPECIFICATION 

307 

E 

IMPLIED-DO CONTROL VARIABLE IS NOT A SIMPLE INTEGER VARIABLE 

308 

E 

IMPLIED-DO LOOP HAS TOO MANY SIMPLE lOLIST ITEMS 

309 

E 

DO CONTROL VARIABLE \P IS REDEFINED IN AN lOLIST 

310 

E 

IMPLIED-DO CONTROL VARIABLE IS REDEFINED IN AN lOLIST \P 

311 

E 

UNEXPECTED LEFT PARENTHESIS 

312 

E 

UNEXPECTED RIGHT PARENTOESIS 

313 

E 

UNEXPECTED COMMA 

314 

E 

UNEXPECTED, SLASH 

315 

E 

UNEXPECTED NUMBER 

316 

E 

UNEXPECTED MINUS SIGN 

317 

E 

UNEXPECTED APOSTROPHE 

318 

E 

UNEXPECTED B FORMAT SPECIFICATION 
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TABLE 1. Error Messages (cont'd) 


ERROR 

NUMBER 

ERROR 

LEVEL 

DESCRIPTION 

319 

E 

ILLEGAL X FORMAT SPECIFICATIC»J 

320 

E 

UNEXPECTED I FORMAT SPECIFICATION 

321 

E 

UNEXPECTED L FORMAT SPECIFICATION 

322 

E 

UNEXPECTED A FOia^AT SPECIFICATION 

323 

E 

UNEXPECTED D FORMAT SPECIFICATION 

324 

E 

UNEXPECTED E FORMAT SPECIFICATION 

325 

E 

UNEXPECTED F FOK4AT SPECIFICATION 

326 

E 

NUMBER IS MISSING BEFORE P FORMAT SPECIFICATICW 

327 

E 

NUMBER IS MISSING BEFORE H FORMAT SPECIFICATION 

328 

E 

A NON-LOGICAL OPERAND \P APPEARS IN A LOGICAL EXPRESSICW 

329 

E 

UNEXPECTED END-OF-STATEMENT 

330 

E 

UNEXPECTED CHARACTER IN FORMAT STATEMENT 

331 

E 

MISSING FIELD WIDTH 

332 

F 

INTERNAL ERROR — NAME NOT FOUND 

333 

E 

ILLEGAL USE OF MODULE NAME \P 

334 

E 

ATTEJ1PTED TO PASS STATEMENT-FUNCTION-STATEMENT NAME AS ADDRESS 

335 

E 

CONFLICT WITH PRIOR DEFINITIONS: \P 

336 

E 

ILLEGAL ATTEMPT TO PASS \P AS ADDRESS 

337 

E 

NO INTRINSIC STATEMENT FOR \P BUT IT IS PASSED AS ARGUMENT 

338 

E 

AN ATTEMPT WAS MADE TO ASSIGN THE PROCEDURE \P 

339 

E 

PROCEDURE NAME \P APPEARS IN DATA STATEMENT 

340 

E 

UNBALANCED PARENTHESES IN IF STATEMENT 

341 

F 

INTERNAL - NAME IN ATTRIBUTE TABLE DOES NOT START WITH ALPHA 
CHARACTER 

342 

F 

INTERNAL - HASH TABLE FULL 

343 

E 

EXPECTED VARIABLE NAME OR ARRAY NAME INSTEAD OF \P 
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TABLE 1. Error Messages (cont'd) 


ERROR 

NUMBER 

ERROR 

LEVEL 

DESCRIPTION 

344 

E 

DUMMY ARGUMENT \P APPEARS MORE THAN ONCE IN DUMMY ARGUMENT LIST 

345 

E 

DUMMY ARGUMENT LIST MISSING — PARENTHESES MUST APPEAR EVEN IF 
EMPTY 

346 

E 

'RBCL' EXPECTED 

347 

E 

'ACCESS' EXPECTED 

348 

E 

MISSING ELEMENTS IN E(;^I VALENCE LIST 

349 

E 

SLASH EXPECTED 

350 

E 

DUMMY ARGUMENT OR SAVED ENTITY \P NOT ALLOWED IN COMMON 

351 

E 

ARRAY ELEMENTS NOT ALLC»?ED IN SAVE \P 

352 

E 

DUMMY ARGUMENT OR C0E®10N ENTITY \P NOT ALLOWED IN SAVE 

353 

E 

SAVE ENTITIES MUST BE SIMPLE VARIABLES, ARRAY NAMES OR COMMON 
BLOCKS 

354 

E 

NUMERIC INTEGER CONSTANT EXPECTED 

355 

E 

DUMMY ARGUMENT \P NOT ALLOWED IN EQUIVALENCE LIST 

356 

W 

RETURN MISSING IN FUNCTION OR SUBROUTINE 

357 

E 

MORE THAN ONE HEADER (PROGRAM, FUNCTION, SUBROUTINE OR 
BLOCKDATA) 

358 

E 

ILLEGAL ORDER OF STATE24ENTS 

359 

E 

MISSING DATA STATEMENTS IN BLOCKDATA SUBPROGRAM 

360 

E 

MISSING EXECUTABLE STATEMENTS 

361 

E 

UNCLOSED BLOCKS 

362 

E 

ILLEGAL STATEMENTS IN BLOCKDATA SUBPROGRAM 

363 

E 

ILLEGAL CHARACTERS IN STOP OR PAUSE STATEMENT 

364 

F 

MISSING DIMENSION NUMBER IN ATTRIBUTE OF \P 

365 

F 

"BINJCODE" - ILLEGAL OPERATION CODE PASSED; \N 

366 

F 

INTERNAL: "NEXIWORK" - TOO MANY WORK-REGISTERS NEEDED BY 

"BIN CODE" 
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TABEiE 1. Error Messages (cont'd) 


ERROR 

NUMBER 

ERROR 

LEVEL 

DESCRIPTION 

367 

F 

INTERNAL: "BIN SPECIAL" - ILLEGAL COMMAND-CODE PASSED \N 

368 

F 

INTERNAL: "BNFLSMPL" - ILLEGAL VAR-KIND IN SIMPLE-VAR NODE: \N 

369 

F 

INTERNAL: "BNFLARRAY" - ILLEGAL VAR-KIND IN ARRAY-VAR NODE: \N 

370 

F 

INTERNAL: "BNFLOPND/BNFLRUTN" - ILLEGAL OPERAND NODE-TYPE 
PASSED: \N 

371 

E 

CODE SIZE IS GREATER THAN 32KB WHICH CONFLICTS WITH '-B' OPTION 

372 

F 

INTERNAL: "BINCRE" - ILLEGAL OPERAND ADDRESS-MODE (MDxxx) 
FOUND: \N 

373 

F 

INTERNAL: "BINPSEUD" - ILLEGAL OPERAND ADDRESS-MODE (MDxxx) 
FOUND: \N 

374 

F 

INTERNAL: "BINOPEN" - CAN'T OPEN RO-FILE: \P 

375 

F 

INTERNAL: "BNTMOPEN" - CAN'T RE-OPEN TEMPORARY RO-FILE: \P 

376 

F 

INTERNAL: "BNTMREAD" - READ OF TEMPORARY RO-FILE FAILED: \P 

377 

F 

INTERNAL: "BINWRT" - ILLEGAL READ-CODE (WR_xxx) PASSED: \N 

378 

E 

SAVE4C0MM0N CODE IS GREATER THAN 32KB WHICH CONFLICTS WITH 'C 
OPTION 

379 

F 

INTERNAL: "BNWRBYTE" - WRITE ON RO-FILE FAILED: \P 

380 

F 

INTERNAL: "BINCLOSE" - WRITE ON RO-FILE FAILED: \P 

381 

F 

NESTING ERROR 

382 

E 

STRING-CONSTANTS AND FOIMATS SECTION SIZE IS GREATER THAN 32KB 

383 

E 

ILLEGAL INTEGER NUMBER 

384 

E 

CHARACTER LENGTH OF BOTH OPERANDS SHOULD BE THE SAME 

385 

E 

ILLEGAL SYNTAX IN DATA STATEMENT 

386 

E 

INCONSISTENT SUBSCRIPT REFERENCE 

387 

E 

UNEQUAL NUMBER OF NAMES AND VALUES 

388 

E 

ATTEMPT TO INITIALIZE NONCOMMON VARIABLE \P in BLOCK DATA 
SUBPROGRAM 

389 

E 

SUBSCRIPT OF \P IS NOT AN INTEGER CONSTANT 
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1ABLE 1. Error Messages (cont'd) 


ERROR 

NUMBER 

ERROR 
r iT*i\7Er I 

DESCRIPTION 


390 

F 

FATAL ERROR IN DATA - DATA 

TABLE IS FULL 


391 

F 

FATAL ERROR IN DATA/KEEP GEN - KEEP_GEN GOT ODD 

OFFSET 

393 

E 

MISMATCH BETWEEN OPERAND AND OPERATOR DATA TYPES 

394 

E 

UNDEFINED LABEL \N 



395 

E 

FIXED-POINT OVERFLOW 



396 

E 

FIXED-POINT ZERO RAISED TO 

POWER OF NEGATIVE OR 

ZERO NUMBER 

397 

E 

UNEXPECTED Z FORMAT SPECIFICATION 


398 

E 

UNEXPECTED G FORMAT SPECIFICATION 


399 

F 

PROGRAM IS EMPTY 



400 

E 

INTERNAL FATAL ERROR IN: 

"MATCH_CONVERT" 


401 

F 

INTERNAL FATAL ERROR IN: 

"SUBST_OP" 


402 

F 

INTERNAL FATAL ERROR IN: 

"EXECUTE_OP" 


403 

E 

INTERNAL FATAL ERROR IN: 

"CONVERT" 


404 

F 

INTERNAL FATAL ERROR IN: 

"EXPARS" 


405 

F 

INTERNAL FATAL ERROR IN: 

"ELESIZE" (VARIABLE 

NAME \P) 

406 

E 

EXPRESSION NESTED TOO DEEP 



407 

F 

INTERNAL FATAL ERROR IN: 

"SINTOF" 


408 

F 

INTERNAL: NO MORE BUFFER ROOM AVAILABLE 


409 

F 

INTERNAL: ATTRIBUTES TABLE 

FULL 


410 

F 

INTERNAL: AN I/O ERROR OCCURRED 
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TABLE 2. Console Messages 


MESSAGE 

MEANING 

NEXT STEP 


FORTRAN (Vxx-xx). 

Version number xx-xx of the 
FORTRAN Carpi ler is executing 

• 


COMPILATION CONCLUDED. 

The FORTRAN Carpi ler has 
conpleted successfully. 



SOURCE FILE INVALID 

The Carpi ler was unable 
to open the source file. 

Ensure that the source 
file exists on the disk. 

LOADING FAILED 

WLFlxxxx PHASE 

The FORTRAN Carpi ler 
failed to load phase 
WLFlxxxx . 

Check Table 3 for 
rrteaning of abort 

the 

code. 

CCMPILER FAILED 
xxxxxxxxxxxxxx. 

The FORTRAN Coirpiler 
failed internally. 

Check Table 3 for 
irveaning of abort 

the 

code. 


ABORT Codes 



TABLE 3 . Abnormal 

Termination 

nnnn VALUE 

MEANING 

NEXT STEP 

OOOO-OOFF 

FHS/IOS error in VERSAdos. 

Refer to VERSAdos Data Manage- 
irent Services and Program Loader 
User's Manual. 

0100-1999 

Internal Cotrpiler error. 

1. Fix the errors and recorrpile. 

2. If Appendix D applies, fix 
arx3 recorrpile again. 

3. Please contact local Motorola 
office if error is not solved 
by the above. 

2001 

Invalid file name in the 
FORTRAN coitinand. 

Check the file name and 
recortpi le. 

2002 

Invalid carpi le options 
in the FORTRAN catraand. 

Check carpi le options and 
recorpile. 
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APPENDIX B 


RUNTIME ERROR MESSAGES 

When an error occurs during execution, the program either continues or aborts. 
Error numbers 201 and 144 allow execution to continue; the rest cause an abort. 
The format of the error message is as follows: 

** ERROR nnn message (nnn is error number) 

Table 1 shows these diagnostic messages. 


TABLE 1. Diagnostic Messages 


ERROR 

NUMBER 

ERROR 

LiE!V£iLj 

MESSAGE 

101 

c 

RECURSIVE CALL 

102 

c 

LOGICAL UNIT NUMBER OUT OF RANGE 

103 

c 

END OF REXX)RD 

104 

c 

FORMAT CCOE MISSING 

105 

c 

INVALID CHARACTER IN FORMAT 

106 

c 

NEST OUT OF RANGE IN FORMAT 

107 

c 

NUMBER OUT OF RANGE IN FOMIAT 

108 

c 

ILLEGAL DESCRIPTOR IN FORMAT 

109 

c 

ILLEGAL SIGN WITHOUT SCALE FACTOR 

110 

c 

INVALID DECIMAL CHARACTER 

111 

c 

INVALID CHARACTER 

112 

c 

INVALID HEXADECIMAL CHARACTER 

113 

c 

FIXED POINT OVERFLOW 

114 

c 

FLOATING POINT OVERFLOW 

115 

c 

FLOATING POINT UNDERFLOW 

116 

c 

NOT ENOUGH RECORDS IN UNFOW1ATTED READ 

117 

c 

TOO MANY RECORDS IN UNFORMATTED READ 
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TABLE 1. Diagnostic Messages (cont'd) 


ERROR 

NUMBER 

ERROR 

EjEjVKL 

MESSAGE 

118 

c 

ASSIGN MISSING 

119 

c 

INSUFFICIENT MEMORY FOR BUFFER 

120 

c 

ERROR RETURN ON FHS CALL 

121 

c 

DEVICE IS NOT READABLE 

122 

C 

DEVICE IS WRITE PROTECTED 

123 

C 

DEVICE DOES NOT SUPPORT BACKSPACE 

124 

c 

DEVICE DOES NOT SUPPORT REWIND 

125 

c 

DEVICE DOES NOT SUPPORT ENDFILE 

126 

c 

DIRECT ACCESS NOT SUPPORTED 

127 

c 

SEQUENTIAL ACCESS NOT SUPPORTED 

128 

c 

UNFORMATTED I/O NOT SUPPORTED 

129 

c 

DIRECT ACCESS IS ILLEGAL WITHOUT OPEN STATEMENT 

130 

c 

UNIT WAS PREVIOUSLY ACCESSED DIRECTLY 

131 

c 

UNIT WAS PREVIOUSLY ACCESSED SEQUENTIALLY 

132 

c 

I/O ERROR DURING SEQUENTIAL ACCESS 

133 

c 

I/O ERROR DURING DIRECT ACCESS 

134 

c 

END OF FILE 

135 

c 

UNIT ALREADY OPENED 

136 

c 

ILLEGAL RECORD FORMAT 

137 

c 

RECORD LENGTH OF OPEN STATEMENT GREATER THAN 
RECORD LENGTH OF FILE 

138 

c 

RECORD NUMBER LESS THAN OR EQUAL TO 0 

139 

c 

FILE IS NOT FORMATTED 

140 

c 

I/O ERROR AT PAUSE OR STOP 

141 

c 

ERROR OCCURRED DURING CLOSE 

142 

c 

INDEX OUT OF RANGE 



TABLE 1. Diagnostic Messages (cont'd) 


ERROR 

NUMBER 

ERROR 

LKVKLj 

MESSAGE 

143 

c 

INSUFFICIENT MEMORY 

144 

c 

DIVIDE BY ZERO 

145 

c 

SOURCE ERROR 

201 

s 

DIVIDE BY REAL ZERO 

202 

S 

DIVIDE BY DOUBLE PRECISION ZERO 

203 

s 

DIVIDE BY INTEGER ZERO 

204 

s 

REAL POWER BASE = 0, EXP <= 0 

205 

s 

DOUBLE PRECISION POWER BASE = 0, EXP <= 0 

206 

s 

INTEGER POWER BASE = 0, EXP <= 0 

207 

s 

SQRT ARG. <0 

208 

s 

DSQRT ARG <0 

209 

s 

EXP ARG > 127 LOG(2) 

210 

s 

DEXP ARG > 1023 LOG (2) 

211 

s 

ALOG ARG <= 0 

212 

s 

DLOG ARG <= 0 

213 

s 

ALOGIO ARG <= 10 

214 

s 

DLOGIO AK3 <= 10 

215 

s 

SIN ARG >= 10**6 

216 

s 

DSIN ARG >= 10**14 

217 

s 

COS ARG >= 10**6 

218 

s 

DCOS ARG >= 10**14 

219 

s 

TAN ARG TOO LARGE 

220 

s 

DTAN ARG TOO LARGE 

221 

s 

ASIN ABS ARG > 1 

222 

s 

DASIN ABS ARG > 1 
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TABLE 

1. Diagnostic Messages (cont'd) 

ERROR 

NUMBER 

ERROR 

LiKV£L 

MESSAGE 

223 

s 

ATAN ABS AK3 TOO LARGE 

224 

s 

DATAN ABS AI^ TOO LARGE 

225 

s 

ATAN2(X/Y) AREG X=Y=0 

226 

s 

DATAN2(X/Y) ARG X=Y=0 

227 

s 

ATAN2(X/Y) ARG Y TOO LARGE 

228 

s 

datan2(x/y) arg y too large 
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APPENDIX C 


AN EXAMPLE FROM COIPILATION TO EXECUTION 


This appendix uses a siitple program to illustrate the ccxtplete path of a FORTRAN 
program from ccxnpilation to execution. In this example, TESTPROG must print out 
the sine and cosine for values of X and also plot than on an X,Y grid. 

Example 

Using the VERSAdos FORTRAN conmand, 

FORTRAN WORK: . .TESTPROG, ,#PR;A,S 

the source program is coitpiled into a relocatable object module. The object 
file has the same name as the source file, with an extension name of RO for 
distinction. The conpilation listings are output to the line printer. Figure 1 
displays these listings. 


LINE ISN 


SOURCE STATEMENT 


3 

5 

6 

7 

8 


1 

2 

3 

-4 

5 

6 

7 

8 


10 


PROGRAM SINCOS 
CHARACTER* 1 PRINT ( 8 0 ) 
BASE«::0. 0 
WRITE <6, 10 > 

FORMAT (IH . ,3&X, '0 

DO 30 1=1,6^ 

DO -^0 J=l,80 

PRINT ' 


38X, '•+•!') 


9 

9 

^0 

CONTINUE 

10 

10 


PRINT <-41)=='. ' 

11 

11 


SINX=SIN(BASE> 

12 

12 


COSX=COS(BASE) 

13 

13 


SINY=<SINX + l)*80/2 
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COSY=(COSX + l)*80/2 

15 

15 


ISIN==INT(SINY) 

16 

16 


ICOS=INT(COSY) 

17 

17 


PF<INT(ISIN) = '*' 

18 

18 


PRINT (1008)='©' 

19 

19 


WRITE (6, 50) PRIN T- 

20 

20 

50 

FORMAT (IH ,80A1) 

21 

21 


BASE=BASE+0. 1 

22 

22 

30 

CONTINUE 

23 

23 


STOP 

2-4 

25 

2'l 


END 

CODE 

Sli 

:e 18c. 

SAVE SIZE 4, STACK SIZE 78 


CONSTANT’ SIZE 2c 


CURRENT Z===27 Z-~--6 IS SUFFICIENT 

>iotc)K>toK TOTAL i:;;rrors o total warnings 0 

FIGURE 1. Compilation Listing of Program TESTPRCX3 (Sheet 1 of 4) 
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LINE 

ISN 


SOURCE STATEMENT 



1 

1 

PROGRAM SINCOS 



2 

2 

CHARACTER*! PRINK 80) 



3 

3 

E!ASE:>=0. 0 





000000 

2F0E 

MOVE. L 

A6. -(A7) 



000002 

2C^F 

MOVE. L 

A7. A6 



00000^ 

9FFC00000000 

SU8. L 

t****. A7 



OOOOOA 

^8E77F00 

MOVEM. L 

Dl/D2/D3/D'^/D5/D6/D7. -(A7) 



WRITE (6> 10) 





OOOOOE 

^2AEFFAC 

CLR. L 

-8^(A6) 



000012 

^2A7 

CLR. L 

-<A7) 



00001^ 

^1F900000000 

LEA 

STR_ESDID-*+**itt)K. AO 



OOOOIA 

^8788800 

PEA 

0(PC. AO. L) 



OOOOIE 

■<J2A7 

CLR. L 

-(A7) 



000020 

-12A7 

CLR. L 

-(A7) 



000022 

7206 

MOVEQ 

*6.01 



00002^ 

•<»8C1 

EXT. L 

01 



000026 

2F01 

MOVE. L 

D1.-(A7) 



000028 

■^8780011 

PEA 

17. W 



00002C 

^EABOOOO 

JSR 

ESD17-. FRTPREF(A3) 



000030 

-<»FEF0018 

LEA 

2^(A7). A7 



00003‘f 

‘^EAEiOOOO 

JSR 

ESD18-, FRTPREF(A3) 

5 

5 10 

FORMAT <1H ,'-l'.38X, '0 

'.38X, '+1 

' ) 

6 

6 

DO 

30 1=1. 6“^ 





000038 

7001 

MOVEQ 

*1. DO 



00003A 

2D'40FFA8 

MOVE. L 

D0.-88(A6) 



00003E 

3D7C003FFFA6 

MOVE. W 

•63. -90(A6) 



0000^^ 

■1A6EFFA6 

TST. W 

-90(A6> 



OOQO'^8 

60000000 

BLT 

*** 

7 

7 


DO -lO J=l,80 





0000-1C 

7001 

MOVEQ 

*1.00 



OOOO-^E 

2D^0FFA2 

MOVE. L 

D0.-9^(A6) 



000052 

3D7C004FFFA0 

MOVE. W 

*79. -96 (A6) 



000058 

4A6EFFA0 

TST, W 

-96 (A6) 



OOOOSC 

60000000 

BLT 

*** 

8 

8 


PRINT(J)=' ' 



9 

9 •<»0 


CONTINUE 





000060 

222EFFA2 

MOVE. L 

-9^(A6). 01 



00006'^ 

^1F90000001C 

LEA 

STR_ESDID-*+28, AO 



00006A 

108888001 OAF 

MOVE, 8 

0(PC.A0. L).-8KA6.D1. W) 



000070 

536EFFA0 

SUBQ. W 

*1. -96(A6) 



00007'^ 

52AEFFA2 

ADDQ. L 

*1. -9^(A6) 



000078 

60DE 

BRA 

*-32 

10 

10 


PRINT<^1) = '. ' 



11 

11 


SINX=SIN(8ASE) 



12 

12 


C0SX=C0S(8ASE) 



13 

13 


SINY=<SINX + l)*80/2 


1^ 

!•<» 


COSY=<COSX + l)*80/2 


15 

15 


ISIN=INKSINY) 



16 

16 


ICOS=INT<COSY) 



17 

17 


PRINK ISIN) = '*' 



18 

18 


PRINT<ICOS)='@' 



19 

19 


WRITE <6, 50) PRINT 





00007A 

^1F90000001E 

LEA 

STR_ESDID-*+30, AO 



000080 

1078880 0FFD8 

MOVE. 8 

0(PC. AO. L). -10(A6) 



000086 

2C2EFFAC 

MOVE. L 

-8'»(A6).D6 



00008A 

2006 

MOVE. L 

06. DO 


FIGURE 1. Compilation Listing of Program TESTPROG (Sheet 2 of 4) 
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LINE ISN 


SOURCE STATEMENT 


00008C 

^EABOOOO 

JSR 

ESDI 9- FRTPREF<A3) 

000090 

2E00 

MOVE. L 

DO, D7 

000092 

2D'^7FF9C 

MOVE. L 

D7, -100<A6) 

000096 

2006 

MOVE. L 

D6, DO 

000098 

4EABOOOO 

JSR 

ESD20-. FRTPREF<A3> 

00009C 

2A00 

MOVE. L 

D0,D5 

00009E 

2D'15FF98 

MOVE. L 

D5, -10^(A6) 

OOOOA2 

2007 

MOVE. L 

D7,D0 

OOOOA-4 

2-17C3F800000 

MOVE. L 

♦1065353216, A2 

OOOOAA 

‘‘(EABOOOO 

JSR 

ESD21-. FRTPREF(A3) 

OOOOAE 

2^7C^2AOOOOO 

MOVE. L 

♦1117782016, A2 

OOOOB^ 

-^EABOOOO 

JSR 

ESD22-. FRTPREF(A3) 

OOOOB8 

2^7C40000000 

MOVE. L 

♦ 10737^182^, A2 

OOOOBE 

-4EAB0000 

JSR 

ESD23-. FRTPREF(A3) 

0000C2 

2C00 

MOVE. L 

D0,D6 

OOOOC-^ 

2D-<J6FF9^ 

MOVE. L 

D6,-108(A6) 

0000C8 

2005 

MOVE. L 

D5, DO 

OOOOCA 

2'<»7C3F800000 

MOVE. L 

♦ 1065353216, A2 

OOOODO 

‘‘tEABOOOO 

JSR 

ESD21-. FRTPREFCA3) 

OOOOD'^ 

2-^7C'^2AOOOOO 

MOVE. L 

♦1117782016, A2 

OOOODA 

-^EABOOOO 

JSR 

ESD22-. FRTPREF(A3> 

OOOODE 

2'^7C'^0000000 

MOVE. L 

♦10737^182-^, A2 

OOOOE^ 

^EABOOOO 

JSR 

ESD23-. FRTPREF<A3) 

0000E8 

2E00 

MOVE. L 

D0,D7 

OOOOEA 

2D'^7FF90 

MOVE. L 

D7, -112(A6> 

OOOOEE 

2006 

MOVE. L 

D6, DO 

OOOOFO 

4EAB0000 

JSR 

ESD2^~. FRTPREF(A3) 

OOOOF^ 

2A00 

MOVE. L 

D0,D5 

0000F6 

2D45FF8C 

MOVE. L 

D5, -116(A6> 

OOOOFA 

2007 

MOVE. L 

D7,D0 

OOOOFC 

^EABOOOO 

JSR 

ESD2^-. FRTPREF(A3) 

000100 

2C00 

MOVE. L 

D0,D6 

000102 

2D46FF88 

MOVE. L 

D6, -120<A6) 

000106 

2205 

MOVE. L 

D5,D1 

000108 

^1F90000001F 

LEA 

STR_ESDID-*+31, AO 

OOOlOE 

1DBB880010AF 

MOVE. B 

0(PC, AO. L),-81(A6, Dl. W) 

00011^ 

2206 

MOVE. L 

D6, Dl 

000116 

^1F900000020 

LEA 

STR_ESDID-*+32, AO 

OOOllC 

1DBB880010AF 

MOVE. B 

0(F-C,A0. L>, -8KA6, Dl. W> 

000122 

^2A7 

CLR. L 

-(A7) 

00012^ 

‘41F900000000 

LEA 

STR_ESDID-)»c+*)icw*, AO 

00012A 

^8788800 

PEA 

0(PC, AO. L) 

00012E 

^2A7 

CLR. L 

-(A7) 

000130 

^2A7 

CLR. L 

-(A7) 

000132 

7206 

MOVED 

♦6, Dl 

00013^ 

^8C1 

EXT. L 

Dl 

000136 

2F01 

MOVE. L 

D1,-<A7> 

000138 

■^87800 11 

PEA 

17. W 

00013C 

4EAB0000 

JSR 

ESDI 7- FRTPREF(A3> 

0001^0 

^FEF0018 

LEA 

2^(A7>, A7 

0001^^ 

^86EFFB0 

PEA 

-80(A6> 

0001^8 

^8780050 

PEA 

80. N 

OOOl^C 

^8780801 

PEA 

20^9. M 

000150 

^2A7 

CLR. L 

-<A7) 

000152 

^EABOOOO 

JSR 

ESD25-. FRTPREF(A3) 

000156 

^FEFOOIO 

LEA 

16(A7>, A7 


FIGURE 1. Compilation Listing of Program TESTPROG (Sheet 3 of 4) 
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LINE ISN 


SOURCE STATEMENT 


20 

20 

50 

21 

21 


22 

22 

30 


23 23 

2 ^ 2 ^ 


25 


00015A ^EABOOOO 

FORMAT (IH ,80A1) 
BASE=BASE+0. 1 
CONTINUE 

JSR 

ESDI 8-. FRTPREF(A3) 

00015E 

202EFFAC 

MOVE. L 

-8^<A6),D0 

000162 

2*^7038000008 

MOVE. L 

♦10368319^9, A2 

000168 

AEABOOOO 

JSR 

ESD21-. FRTPREF(A3) 

00016C 

2D^0FFAC 

MOVE. L 

D0,-8<KA6> 

000170 

536EFFA6 

SUBQ. W 

♦1, -90<A6) 

00017^ 

52AEFFA8 

ADDQ. L 

♦1, -88(A6) 

000178 

STOP 

END 

6000FECA 

BRA 

*-308 

00017C 

^2A7 

CLR. L 

-<A7) 

00017E 

‘4EABOOOO 

JSR 

ESD26-. FRTPREF(A3) 

000182 

588F 

ADDQ. L 

♦^, A7 

00018^ 

•1CDF00FE 

MOVEM. L 

(A7)+, Dl/D2/D3/D^/D5/D6/D7 

000188 

^E5E 

UNLK 

A6 

00018A 

^E75 

RTS 



SYMBOL TABLE 


NAME 

ATTR 

ADDR SIZE 

TYPE 

BASE 

LOCAL. V 

ffffffac 

R^ 

COS 

INTFUNC 

X)K)K]K*X*]K 

R^ 

COSX 

LOCAL. V 

ffffff98 

R-1 

COSY 

LOCAL. V 

ffffff90 

R*^ 

I 

LOCAL. V 

ffffffaS 

!*<» 

ICOS 

LOCAL. V 

ffffffSS 

I^ 

INT 

INTFUNC 

IK******* 

12 

ISIN 

LOCAL. V 

ffffffSc 

!■<» 

J 

LOCAL. V 

ffffffaZ 

I^ 

PRINT 

LOCAL. A 

ffffffaf 80 

Cl 

SIN 

INTFUNC 

IK******* 

R'^ 

SINCOS 

PROG 

XCIK****** 


SINX 

LOCAL. V 

ffffff9c 

R^ 

SINY 

LOCAL. V 


RA 


COMMON 


LABEL TABLE 


LABEL ATTR ADDR 

10 FRMT 00000000 
30 EXEC 00000170 
^0 EXEC 00000070 
50 FRMT 00000022 


CODE SIZE 18c, SAME SIZE STACK SIZE 78, CONSTANT SIZE 2c 


CURRENT 2=27 Z=6 IS SUFFICIENT 

nc)KX()K)K TOTAL ERRORS 0 TOTAL WARNINGS 0 


FIGURE 1. Ccxrpilation Listing of Program TESTPROG (Sheet 4 of 4) 
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Linkage Editor Example 

Using the Linkage Editor command, the next st^ is to prepare the load module 


LINK WDRK:..TESTPROG,,#PR;MIXL=PORTLIB 


Options in Effect: 


-A, -B. -D, -H. -I, -L, M. O, P, -Q, -R, -S, -U, -W, -X 


Load Map: 


Sesiment SEGO: 00000000 OOOOOOFF 0/ 1. 2> 3. 5. 6. 7 


Module 

S T Start 

End 

Externally 

Defined Symbols 

SINCOS 

7 00000000 

00000003 

. FCBREF 

00000000 


Segment 

SEGKR) 

: 00000100 OOOO-^DFF 8,9, 

10, 11, 12, 

13, 1^ 



Module 

S 

T Start 

End 

Externally Defined Symbols 


. FINIT 

8 

00000100 

OOOOO-^SS 

. FINIT 

OOOOOIAA 



. FICOM 

8 

00000‘456 

00000587 

. FICOM 

00000^^56 

. FRTPREF 

00000588 

. FIAFL 

8 

00000588 

000009A7 

. FIAFL 

00000588 



. FIINT 

8 

000009A8 

OOOOOCOl 

. FIINT 

000009A8 

. FIIEEP 

OOOOOAF'I 

. FILST 

8 

00000C02 

OOO.OOCFD 

. FILST 

00000C02 

. FILST3 

0000OC6A 

. FIFNL 

8 

OOOOOCFE 

OOOOODFF 

. FIFNL 

OOOOOCFE 



. FICFL 

8 

OOOOOEOO 

00000E5D 

. FICFL 

OOOOOEOO 



. FINFT 

8 

OOOOOE5E 

00000F8F 

. FINFT 

00000E5E 



. FIFMT 

8 

0000OF9O 

0000171F 

. FIFMT 

00000F90 



. FISEQ 

8 

00001720 

00001B71 

. FISEQ 

00001720 



. FIDIR 

8 

00001B72 

OOOOIDDD 

. FIDIR 

00001B72 



. FIRST 

8 

OOOOIDDE 

OOOOIEEB 

. FIRST 

OOOOIDDE 



. FIERR 

8 

OOOOIEEC 

00002ADF 

. FIERF 

00001EF2 

, FIERR 

OOOOIEEC 

. FICLS 

8 

00002AE0 

00002B2D 

. FICLS 

00002AE0 



. FIUBA 

8 

00002B2E 

00002COD 

. FIUBA 

00002B2E 



. FlUOP 

8 

OOOOZCOE 

00002C9D 

. FIUOP 

OOOOZCOE 



, FICVO 

8 

00002C9E 

00002CE1 

. FICVO 

00002C9E 



. FIFOI 

8 

00002CE2 

00002D17 

. FIFOI 

00002CE2 



FIFOF 

8 

00002D18 

00002EC9 

. FIFOF 

00002D18 



. FIFOD 

8 

00002ECA 

000031D5 

, FIFOD 

OOOOZECA 



FIFOG 

8 

000031D6 

00003203 

, FIFOG 

000031D6 



, FIFOL 

8 

0000320^^ 

00003221 

FIFOL 

ooooazo'i 



FIFOA 

8 

00003222 

0000325F 

, FIFOA 

00003222 



FIFOZ 

8 

00003260 

000032B1 

FIFOZ 

00003260 



FICOI 

8 

000032B2 

000033F9 

FICOI 

000032B2 



FICOR 

8 

000033FA 

00003705 

FICOR 

000033FA 



FICVI 

8 

00003706 

000037^9 

FICVI 

00003706 



FIFII 

8 

000037^A 

00003815 

FIFII 

000037^A 



FIFID 

8 

00003816 

00003867 

FIFID 

00003816 



FIFIG 

8 

00003868 

00003895 

FIFIG 

00003868 



FIFIL 

8 

00003896 

000038EB 

FIFIL 

00003896 



FIFIA 

8 

000038EC 

0000393D 

FIFIA 

000038EC 



FIFIZ 

8 

0000393E 

00003AOB 

FIFIZ 

0000393E 



FICII 

8 

00003A0C 

00003B51 

FICII 

00003A0C 



FICIR 

8 

00003B52 

00003F‘»B 

FICIR 

00003B52 



FICTBL 

8 

00003F^C 

0000'4213 

FICTA 

00003F9C 

. FICTB 

OOOO'IOFC 

FRCRI 

8 

0000^21-1 

0000^271 

FRCRI 

OOOO^Zl't 



FRSIR 

8 

0000^272 

0000^300 

FRSIR 

0000^278 

. F. RSIR 

0000^272 

FRCOR 

8 

0000^3DE 

0000^557 . 

FRCOR 

0000^3E^ 

. F. RCOR 

0000‘^3DE 


FIGURE 2. Linkage Editor Listing of Program TESTPRCX3 (Sheet 1 of 2) 
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. FRSIN 

8 

0000<^558 

OOOO^SAB 

. FRSIN 

0000^558 

. FRCOS 

8 

0000^5AC 

0000^5F7 

. FRCOS 

0000-4SAC 

. FRMUD 

8 

0000'15F8 

0000^7ED 

. FRMUD 

0000^5F8 

. FRMUR 

8 

0000^7EE 

0000-4880 

. FRMUR 

000047EE 

. FRSUR 

8 

0000^8EE 

0000^907 

. FRSUR 

OOOO^BEE 

. FRADR 

8 

0000^908 

0000^9FD 

. FRADR 

0000^908 

. FRDIR 

8 

0000'^9FE 

0000-4B47 

. FRDIR 

0000^9FE 

. FRIMR 

8 

0000^8-48 

00004B6B 

. FRIMR 

000048^8 

SINCQS 

9 

0000‘4B6C 

0000^CF7 

. FMAIN 

0000-4B6C 

SINCOS 

10 

0000‘4CF8 

0000^023 




Seament SEG2; OOOO^EOO 000051FF 15 

Module S T Start End Externally Defined Symbols 

. FINIT 15 OOOO'^EOO 000051E1 . FZMRK OOOO^ESO 


Unresolved References; None 


Multiply Defined Symbols: None 


Lenaths (in bytes); 


Seament Hex Decimal 

SEGO 00000100 256 

SEGl OOOO-^DOO 19712 

SEG2 00000^00 102^ 

Total Lenath 00005200 20992 


No Errors 
No Warninas 


Load module has been created. 


FIGURE 2. Linkage E(3itor Listing of Program TESTPROG (Sheet 2 of 2) 
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Example of Load Module Execution 


To execute the load module created by the linker in the previous step, use the 
following command: 

WORK:..TESTPROG 0=#PR 
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FIGURE 3. Listing of TESTPROG Execution 
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APPENDIX D 


C30MPILER LIMITS 


NUMBER 

CONDITIONAL ITEM 

CONDITIONAL CONTENT 

1 

Set of characters 

ASCII character set 

2 

Continuation lines 

9 lines 

3 

Maximum number of digits 
in a statement number 

5 digits 

4 

Maximum number of 
characters in a 
symbolic name 

6 alphanumeric characters - first 
character must be alphabetic 

5 

Numeric value limits 

Integer 


2 bytes = -2**15 to 2** 15-1 

(largest decimal number = 32,767) 
4 bytes = -2**31 to 2**31-1 
(largest decimal number 
= 2,147,483,647) 

Real 

4 bytes = 10**-39 to 10**39 
(7 decimal digits) 

8 bytes = 10**-309 to 10**309 
(15 decimal digits) 


6 

Maximum number of 
dimensions 

3 dimensions 



7 

Logical unit limits 

SYSGEN-dependent, usually 1-8 


8 

Character data length 

1-255 



9 

Number of characters 
allowed in STOP and 
PAUSE statOTent message 

5 letters 



10 

Symbol table size 

Dependent upon Z option 

(see Table 

3-1) 

11 

Label table size 

Dependent upon Z option 

(see Table 

3-1) 

12 

Bloclc nest number 
(sum of DO block nest + 
block IF statonent nest) 

25 



13 

Maximum sum of characters 
in all character constants 

32K characters 




I>-1 



NUMBER CONDITIONAL ITEIi CONDITIONAL CONTENT 


14 Maximum number of common blocks 240 
and number of external linker 
restrictions 


15 FORTRAN cannot interface with Pascal sutprograms. 

16 FORTRAN cannot interface with the fast floating point 
package without going through a conversion process. 
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APPENDIX E 


M68000/ANSI 77 FORTRAN SUBSET DIFFERENCES 


E.l INTRODUCTIC»I 

This appendix describes the language differences between the M68000 FORTRAN and 
the ANSI 77 subset standard (ANSI X3.9 - 1978) . The M68000 FORTRAN supports the 
entire ANSI X3.9 FORTRAN subset with the following extensions. 

In the following paragraphs, specific sections of the ANSI X3.9 FORTRAN language 
manual are referenced by: 

(ANSI X3.9 - specific section or chapter number [F]) 

where [F] refers to Full Language definition. Otherwise, the chapter or section 
is in the Subset Language definition — 

i.e., (ANSI X3.9 - 4) references chapter 4 in the Subset Language 

(ANSI X3.9 - 4.2) references section 4.2 in the Subset Language 
(ANSI X3.9 - 4.2F) references section 4.2 in the Full Language 

A reference to section 4.5 would also include all the subsections, such as 4.5.1 
and 4.5.2. 


E.2 DATA TYPES AND CONSTANTS (ANSI X3.9 - 4) 

This inplementation supports the following data types: 

INTEGER - two distinct sizes 

REAL - two distinct sizes 

DOUBLE PRECISION - (ANSI X3.9 - 4.5F) 

also includes the intrinsic functions associated with 
this data type (ANSI X3.9 - 15.10) 


LOGICAL 

CHARACTER 

A constant data type has been added: 
HEXADECIMAL 


E.2.1 Integer Data Type (ANSI X3.9 - 4.3) 

The size of an integer variable is either two bytes or four bytes. Four bytes 
is the default size. The size of a variable can be specified with the TYPE 
statement (see E.3) . 


NOTE 

The user must ensure that the size of a dummy argument 
and its corresponding actual argument agree (i.e., both 
must be two bytes or both must be four bytes) . Integer 
constants are always passed as four bytes. 
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E.2.2 Real Data Type (ANSI X3.9 - 4.4) 

Double Precision Data Type (ANSI X3.9 - 4.5F) 

The size of a real variable is either four bytes or eight bytes. Four bytes is 
the default size. The size of a variable can be specified with the TYPE 
statement (see E.3) . An 8-byte real variable is equivalent to a double 
precision variable. 


E.2.3 Logical Data Type (ANSI X3.9 - 4.7) 

Logical variables are four bytes long, in conformance with the ANSI requirement 
that logicals and integers be the same length. 


E.2.4 Hexadecimal Constant 

The form of a hexadecimal constant is: 

#<string of hexadecimal digits>H 

The hexadecimal digits include 0-9 and A-F, with the digits A-F corresponding to 
the values 10-15, respectively. 

Hexadecimal constants can be used in DATA statements and anywhere an integer 
constant could be used — 

i.e., INTEGER INTH 

INTH = #FEH This assigns the value 254 to INTH. 


E.3 SPECIFICATION STATEMENTS (ANSI X3.9 - 8) 

To support the different sizes of integer and real variables, the specification 
statements — IMPLICIT and TYPE — were enhanced. 


E.3.1 TYPE Statement (ANSI X3.9 - 8.4.1) 

The form of a TYPE statement is: 

<type> [*<len> [ ,] ] <name> [ ,<name>] . . . 


where : 

type is one of INTEGER, REAL, LOGICAL, or DOUBLE PRECISION. 

len specifies the length of a real or integer variable. For real 

variables, <len> must be 4 or 8, with the default case being 4. 
For integer variables, <len> must be 2 or 4, with the default case 
being 4. For data types LOGICAL and EXDUBLE PRECISION, the <len> 
attribute is syntactically incorrect. 
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name 


is one of the following: 


v[*<len>] V is a variable name, 

a [(d)] [*<len>] a(d) is an array declarator. 

i.e. , 

INTEGER I,J*4 - I and J are 4-byte integers. 

INTEGER*2 L,K - L and K are 2-byte integers. 

INTEGER M,N(10) ,O*2,P(10)*2,Q - M, Q, and array N are 4-byte integers. 

- 0 and array P are 2-byte integers. 

REAL A,B*8 - A is a 4-byte real while B is a double precision real 

with eight bytes. 

REAL*8 C,D(10) - C is an 8-byte real and D is a double precision array 


E.3.2 IMPLICIT Statement (ANSI X3.9 - 8.5) 

The form of the IMPLICIT statement is: 

IMPLICIT <type>[*<len>] (<a> [ ,<a>] . . .) 

where: 

type is one of INTEGER, REAL, LOGICAL, or DOUBLE PRECISION. 

len specifies the length of a real or integer variable. For real 

variables, <len> must be 4 or 8, with the default case being 8. 
For integer variables, <len> must be 2 or 4, with the default case 
being 4. For data types LOGICAL and DOUBLE PRECISION, the <len> 
attribute is syntactically incorrect. 

a is either a single letter or a range of single letters in 

alphabetical order. 


E.3.3 INTRINSIC Statement (ANSI X3.9 - 8.8) 

The ISA bit manipulation functions — lOR, lAND, NOT, lEOR, ISHFT, IBSET, IBCLR, 
and BTEST — cannot be used as actual arguments. 


E.4 FUNCTIONS AND SUBROUTINES (ANSI X3.9 - 15) 

To support the different sizes of integer and real variables, the FUNCTION 
statannent was enhanced. Also, the INTRINSIC functions to support the DOUBLE 
PRECISION data type were added. The ISA 1976 bit string manipulation functions 
were also added. 
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E.4.1 FUNCTION Statenent (ANSI X3.9 - 15.5.1) 

The form of a FUNCTICW statenent is: 

<type> FUNCTION <fun> [*<len>] ( [<d> [,<d>] . . .] ) 


where: 

type specifies the length of a real or integer variable. For real 

variables, <len> must be 4 or 8, with the default case being 8. 
For integer variables, <len> must be 2 or 4, with the default case 
being 4. For data types LOGICAL and DOUBLE PRECISION, the <len> 
attribute is syntactically incorrect. 

fun is the symbolic name of the function subprogram in which the 

FUNCTION statement appears. 

len specifies the length of a real or integer variable. For real 

variables, <len> must be 4 or 8, with the default case being 4. 
For integer variables, <len> must be 2 or 4, with the default case 
being 4. For data types LOGICAL and DOUBLE PRECISION, the <len> 
attribute is syntactically incorrect. 

d is a dummy argument. 


E.4.2 INTRINSIC Functions (ANSI X3.9 - 15.10) 

E.4.2.1 Additional Functions. The following intrinsic functions have been 
added to support the DOUBLE PRECISION data type. The definition of each 
function can be found in the table located in (ANSI X3.9 - 15.10) : 

IDINT, SNGL, DBLE, DINT, DNINT, IDNINT, DABS, mOD, DSIGN, DOIM, 

DMAXl, DMINl, DSQRT, DEXP, DLOG, DLOGIO, DSIN, DCOS, DTAN, DASIN, 

DACOS, DATAN, DATAN2, DSINH, DOOSH, DTANH. 


E.4.2. 2 Integer Actual Arguments . Wherever an intrinsic function expects an 
integer actual argument, either a 2-byte or a 4-byte integer may be used. 


E.4.3 ISA BIT STRING MANIPULATION 

The subprograms which follow allow the programmer to view integer data as 

ordered sets of bits (a^, an“^' ®0) ^ where the set is a place 

positional binary r^resentation of an integer value, thus permitting 
interrogation and manipulation of integers on a bit-by-bit basis. The value of 
n is either 16 or 32, depending on the data type of the input variable. 


E.4.3.1 Logical Operations . These operations are external functions. In the 
following functions, j and m are integer expressions. Operations are performed 
on all bits which represent the value of an integer internal to the processor. 
Operations are done bit-by-bit on corresponding bits — that is, the 
corresponding bits of the actual arguments j and m are used to generate the 
integer result. 
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E. 4. 3. 1.1 Inclusive OR - The form of this function reference is; 


IOR(j,m) 

where the result of IOR(j,m) is: 

2 2k * (jj^ + iri|^ - (jj^ * mj^)) 

k=0 

E. 4. 3. 1.2 Logical Product - The form of this function reference is: 
IAND(j,m) 

v^ere the result of IAND(j,m) is: 
n 

1 2k * (j * m. )) 

k=0 ^ 

E. 4. 3. 1.3 Logical Complement - The form of this function reference is: 
NOT(j) 

v^ere the result of NOT(j) is: 
n 

2 2k * (l-j ) 
k=0 

E. 4, 3. 1,4 Exclusive OR - The form of this function reference is: 
IECK(j,m) 

v^ere the result of IEOR(j,m) is; 
n 

2_ 2k * (2 - (j^ + m^)) * (j^ * m^) 
k”0 
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E.4.3.2 Shift Operations 

This operation is an external function. In the following function, j and m are 
integer expressions, (^rations are performed on all bits which r^resent the 
value of an integer internal to the processor, and are used to generate an 
integer result. 

The form of this function reference is: 

ISHFT(j,m) 

where, if the value of m is positive or zero, the result of ISHFT(j,m) is: 


n-m 

2 2 ^"^ * 


k=0 


j 


k 


v^ere, if the value of m is negative, the result of ISHFT(j,m) is; 


n 

2 2 ^"*^ * 
k=m 


j 


k 


E.4.3.3 Bit Testing and Setting . These operations are external functions. In 
the following functions, j and m are integer expressions. 

E. 4. 3. 3.1 Bit Test - This logical function tests a specified bit of an integer. 
The form of this function reference is: 

BTEST(j,m) 

where the result of BTEST(j,m) is: 

if IAND(j,2n») = 0, then FALSE, else TRUE 

E.4.3.3. 2 Bit Set - This function sets a specified bit of an integer. 

The form of this function reference is; 

IBSET(j,m) 

where the result of the function reference IBSET(j,m) is; 

IOR(j,2ni) 

E.4.3.3. 3 Bit Clear - This function clears a specified bit of an integer. 

The form of this function reference is: 

IBCLR(j,m) 

where the result of the function reference IBCLR(j,m) is; 


IAND(j,NOT(2P»)) 



E.4.4 INPUT Function 


This function reads one byte of data from the address specified by its 
argument n. n is a 4-byte integer expression. 

The form of the function is: INPUT(n) 


E . 4 . 5 OUTPUT Subrout i ne 

This subroutine outputs the low order byte of data m to address n in memory, n 
and m are 4-byte integer expressions. 

The form of the subroutine is: OUTPUT (n,m) 


E.4.6 Block Data Subprograms (ANSI X3.9 - 16F) 

Block data subprograms are used to provide initial values for variables and 
array elements in named common blocks. See the ANSI manual for a ccxnplete 
definition. 


E.5 MORE GENERALIZED EXPRESSIONS 
E . 5 . 1 Subscr ipt Express ions 

A subscript expression is not restricted to integer expressions, as in the 
Subset Language, but may also contain array element references and function 
references as in the Full Language. For example, a statement of the following 
form is allowed: 

A(I,J) = B(IT(J)) * C(IFUNC(K)) 

where A, B, IT, and C are arrays and IFUNC is a function. 


E.5. 2 Expressions as Output List Items (ANSI X3.9 - 12.8.2.2F) 

An output list item may be not only a variable name, an array element name, or 
an array name, but also may be any arithmetic expression. For example, the 
following is allowed: 

WRITE (* ' (IH, 10F7.2)') A+B, C*D(I) +E,FUNC(G) 


E.5. 3 Integer Expressions as External Unit Identifiers (ANSI X3.9 - 12.3.3F) 

An external unit identifier is not restricted to integer constants or variables, 
but may be any integer expression with a zero or positive value. For example, 
the following is allowed: 

READ (IFILE(J) ,100) X,Y,Z 
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E.5.4 Integer Expressions as Record Length Specifiers (MSI X3.9 - 12. 10. IF) 

The record length specifier is not restricted to integer constants or variables, 
but may be any integer expression with a positive value. Furthermore, the value 
may be up to 65,535, which is the largest record length allowed by VERSMos. 
For example, the following is allowed: 

OPEN (lUNIT(IFILE) , ACCESS = 'DIRECT' ,RECL = LEN(IFILE)) 


E.5.5 Integer Expressions as Itecord Specifiers (MSI X3.9 - 12. 5F) 

The record specifier is not restricted to integer constants or variables, but 
may be any integer expression with a positive value. Furthermore, the value is 
not restricted to less than 32,768, but may be up to 2,147,483,647 (2**31 - 1) . 
For example, the following is allowed: 

READ (IUNIT,100, REC - 1+40000) A 
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